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Tous nos informaticiens viennent de l'informatique traditionnelle, et en maîtrisent totalement les iangages classiques . 
Assembleur, COBOL. FORTRAN … Ils utilisent leur professionnalisme et les méthodes de l'informatique pour réaliser 
des applications professionnelles en micro-informatique. Nous vendons des micro-ordinateurs sans programme. 
Nous vendons aussi des micro-ordinateurs avec les programmes. Il s'agit de programmes realisés par la société KA, 
dont nous garantissons la qualité et le bon fonctionnement. 

Nos formateurs enseignent l'informatique. L'enseignement de la micro-informatique necessite des formateurs pro- 
fessionnels, suffisamment de matériel pour que chacun puisse pratiquer, un support de cours couvrant non 
seulement l'enseignement diffusé, mais permettant au participant de s’auto-former apres le stage. Nous avons déjà 
accueilli de nombreux stagiaires, d'horizons et de centres d'intérêts divers : chefs d'entrepnse. universitaires, profes- 
sions libérales. mformaticiens, musiciens compositeurs, retraités, cadres de grandes entreprises, revendeurs de 


IRO STOMAIENRS Nous proposons 5 possibilités : 


B Stage de 2 jours 

bases de données. 

Comment utiliser les progiciels : 
e bases de données 

e manipulateurs de nombres 

et générateurs de tableaux 

e générateurs d'états imprimés 
Application pratique 

(un 48 K + un lecteur de 


disquettes pour deux participants). 


Après ce stage, on peut générer, 
à partir de progiciels, un 
programme totalement adapté 
à son application en moins 
d'une journée de travail. 
Ce stage nécessite de connaître 
la manipulation de l'APPLE ||, 
ou d'avoir suivi au minimum 
la journée d'initiation. 
Dates 27-28 juin 

29-30 août 

Prix 2192 Fhi. 


B Stage de 1 semaine 


de programmation BASIC. 


ll débute par la journée 

d initration 

Le stage permet 
d'assimiler la logique 

de programmation 

et de | appliquer 

{un micro-système 48 K 
pour 2 participants). 

En fin de stage. on sait 
établir un programme 

de gestion de fichier avec 
consuitatron en temps réel 
Ce stage ne nécessite pas 
de connarssance de départ 
en Informatique 


Dates 

du 18 au 22 avril 
du 16 au 20 mai 
du 20 au 24 juin 
Prix 4245 Fhi. 


@ Stage 3 jours disquettes. 
Consacré à l'organisation, 
à la programmation et à 
l'exploitation de fichiers 
sur disquettes magnétiques, 
à travers j'étude du Disk 
Operating System APPLE || 
Travaux pratiques sur 
micro-systèmes (un 48 K + un 
lecteur de disquettes 
pour deux participants). 
Ce stage nécessite : 
e Soit d'avoir Suivi le stage 
de À Semaine de programmation 
au préalable: 
e soit d'avoir une bonne 
connaissance théorique 
et une sérieuse pratique 
de BASIC de l'APPLE I 
Dates du 25 au 27 juiltet 
du 17 au 19 octobre 
Prix 3378Fht. 


B Journée d'initiation - Dates : 18 avril, 16 mai, 20 juin - Prix 773 Fh.t. 


Le nombre de places pour chaque Stage est strictement limite. à ia lois Pour la qualle de l'enseignemenl ei par les contraintes du matenel 
Deux animateurs sont presents pour aider tes pañiCipanis a la réalisation de leurs programmes 

Un support de cours tres complet est remis à chaque participant 

Peur la jeurnee d'intiaton et pour les stages les déjeuners sont pris en commun ei Compris 
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l'informatique douce: 


Renseignements et inscriptions à KA - Programme détaillé sur demande. 
212 rue Lecourbe 75015 Paris - Tél. 533.13.50. 
Le calendrier 83 est disponible. 


*“L'informatigue deuce” est 1ne marque déposée de la société KA 





& Journées de sensibilisation 
et stages de formation 

a Paris et en Province. 

15 sont organisés 

à . demande 

e d une Instance régienale 
de par exemple, 

une Chambre de Commerce ; 
e d un organisme 

de formation 

dans le cadre d'un cycle 
plus vaste de formation: 

e d une entreprise. 

La societé KA 

installe le matériel 

pour la durée 

de la formation. 

assure la formation 

et fournit 

les supports de cours. 
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Niveau* * 





' Langage” 
Sommaire 


Éditorial par Hervé Thiriez 5] 


Les arcanes du Moniteur Apple Ijf 





par Bruno Lemaire et Gilles Mauffrey A 
Cryptographie à clef publique par Olivier Herz 7 P 
Graphique, quand tu nous tiens... par Guy Mathieu 15 B 
Graphiques et logique par Olivier Herz 21 A 
Hard Copy Seikosha par Olivier Herz 22 A 
La souris de Lisa par Hervé Thiriez 24 / 
L’Apple Île à l'essai par Jean-François Duvivier 25 / 
Des programmes relogeables par Philippe François 27 A 
Dump Pascal par Michel Marquis 29 P 
Un générateur par Denis Sureau 35 A 
Un programme de test universel par Denis Sureau 39 B 
Visicalc et traitement de texte par Hervé Thiriez 43 B 
HELLO corrigé par Thierry Le Tallec et Jacques Tran-Van 46 A 
Gestion de masques en BASIC par Gérard Michel 47 B-A M-T 
FID, MUFFIN et DEMUFFIN par Alexandre Duback 55 / TL #1 
Le cours de BASIC Applesoft d'André Finot 5 
par Jean-Jacques Crépy 56 / + = 
Muiltiplan à l’essai par Hervé Thiriez 57 / Ie e 
Effacement de directory en Pascal par Régis Lardennois 59 P M F5 
Création de fichiers EXEC par Yvan Koenig 60 B T É 
Boot PLE + CRAE par Michel Marquis 61 B M-T à 
Un programme de fondu enchaîné par Denis Sureau 62 A P-T | 
Les quatre ponts par Olivier Herz 63 B T se 
Courrier des lecteurs 64 / / 
Courrier des clubs 66 l / 

/ L 


Trucs et astuces 26-58 


* Langage : B(esic) - A(ssembleur}) - P(ascal). 
** Niveau : D(ébutant} - M{oyen) - P{rofessionnel}) - T(ous). 
fl s'agit-là du niveau nécessaire pour comprendre le fonctionnement du programme décrit dans l'article, ou pour digérer l'article lui- 
même. Ceci dit. un programme peut étre ufilisé sans compréhension de son fonctionnement interne (sinon, qui jouera aux échecs sur 
ordinateur ?) 


Les annonceurs 


B.F.L : p. 42 — BMI : 3: couv. — ANDRÉ F. FINOT : p. 28 — JCR : 4° couv. — KA : 2e couv. — LOGMA : p. 18 — M.B.D.C. :p. 58 
— MICRO INFORMATIQUE SERVICE : p. 4 — MICROMOS ; p. 13-45 — MINIGRAPHE : p. 17 — L'ORDINATEUR INDIVIDUEL : 
p. 14 — PS. : p, 54 — SYBEX : p. 32-33 — TOTALE FORMATION : p. 47 


Éditions ME - 49, rue Lamartine - 78000 Versailles 


Directeur de la publication : Hervé Thiriez. Imprimerie Sim, 75011 Paris. Imprimé en France. Dépét légal . 1°" trimestre 1983. 
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S.E.P, Marketing 


D.S.A. INFORMATIQUE MICRO ALPHA SOFT 


5, bd Dubouchage 11, impasse du Lacquet 61, rue Ch. Rivière - B.P. 0701 22, rue des 3 Pierres 
06000 NICE 


Tél, (93) 85.15.96 


e La division de la longueur des program- 
mes par 20. 
e La possibilité réelle de dessiner ses mas- 
ques de saisie ou d'impression. 
e Une indépendance totale de la périphérie 
choisie par rapport au système. 
e L'intégralité du système contenu sur une carte 
mémoire de 20 K. 
e Une gestion de mémoire de 140 K à 120 mégas. 
e Des utilitaires déterminants 
- un générateur de programmes de ges- 
tion de fichiers permettant même le séquentiel 
indexé multiclé 
- un générateur d'écrans. 


SEEMI 


25200 MONTBELIARD 
Tél. (81) 97.16.46 


44401 REZE CEDEX 
Téi. (40) 75.52.80 


Carte MEM/DOS 6502 


LE SYSTEME D'EXPLOITATION 
DU 6502 - MONOPOSTE/MULTIPOSTE 


e CALL FN, une nouvelle commande basic, très 
puissante, intégrée au système permettant 
l'appel des sous-programmes par noms avec 
passage de paramètres et variables locales. 

e Une version multiposte assurant la mise en 
commun totale des ressources sans conflit et 
l'autonomie des postes intelligents disposant 
de leur propre unité centrale. 

e Des programmes compatibles APPLE IC et 
APPLE fffautomatiquement transférables sur 
COMMODORE 8096. 

eEt pour demain, des logiciels développés 
aujourd’hui directement compatibles avec le 
réseau local memnet. 


micro 
informatique 
e service 


3, rue Meyerbeer - 06000 NICE - Télex 461 916 F 


G-8 
C.I.C.C. 


Grove house 
the bordage 
St Peter Port 
GUERNSEY 
(0481) 20155 


BENELUX 
MEGAVOLT S.A. 


Rue de Bleurmont 
382 B 
B 4920 EMBOURG 


MICROMEGAS 


69007 LYON 
Tél. (7) 861.19.52 





Éditorial 


Après des mois et des mois d'attente, nous avons enfin vu le 19 janvier les nouveaux produits 
d'Apple, le Île et le Lisa. Bien entendu. nous vous en parlons dans ce septième numéro de Pom's. 
Par opposition au dernier numéro, dans lequel nous vous avons offert plusieurs longs articles. nous 
vous proposons ici de nombreux articles de tous genres. Les amateurs de Pascal peuvent se réjouir, 
ils trouveront trois programmes écrits dans leur langue ! 


Trois contributions assez importantes occuperont vos soirées pendant quelque temps : tout d'abord, 
un générateur de programme dû à Denis Sureau, et accompagné d'une application sous forme de 
test programmable. Ensuite, Olivier Herz nous assène un programme Pascal de cryptographie à clef 
publique — grâce auquel vous pourrez coder et décoder des messages. Enfin, Gérard Michel 
concurrence le MEM/DOS en vous donnant un programme de gestion de masques dont l’analyse 
devrait permettre de grands progrès aux débutants ayant déjà lu ses articles précédents. 


De nombreux autres articles vous apporteront de multiples idées et de non moins nombreux 
programmes. Guy Mathieu nous montre comment exploiter les possibilités graphiques de l’Epson, ce 
dont Olivier Herz s'inspire pour vous aider à effectuer des opérations logiques sur les pages 
graphiques. Nous apprennons à utiliser les minuscules dans Visicalc sur Apple I!, puis nous analysons 


la conversion bidirectionnelle entre Apple Writer et des fichiers TEXT. 


Michel Marquis nous propose un programme BASIC de boot pour lier PLE et CRAE fvoir le 
numéro 1 de Pom's) à l'allumage de l'appareil et un programme de dump en Pascal. Philippe 
François apprend aux programmeurs en assembleur comment réaliser des programmes relogeables. 
Régis Lardennois nous enseigne une sécurité pour l’utilisation du directory Pascal. Bruno Lemaire 
et Gilles Mauffrey ont analysé le moniteur de l'Apple Ji et nous donnent quelques bonnes adresses. 
Quand à Olivier Herz, il propose encore un programme de Hard Copy pour Seikosha et un jeu (les 
quatre ponts) : avec un autre auteur comme lui, Pom's pourra devenir mensuel ! 


Suite aux nombreuses questions des lecteurs relatives aux programmes FID et MUFFIN, Alexandre 
Duback apporte quelques explications sur leur mode d'emploi. Vous trouverez aussi dans ce numéro 
un banc d'essai de l'Apple lie (Jean-François Duvivier est de retour parmi nous), une présentation 
du Lisa, une analyse du programme Multiplan et du programme d'apprentissage du BASIC d'André 
Finot. 

Nous rappelons aux nouveaux lecteurs qu'une disquette facultative en DOS 3.3 accompagne chaque 
numéro de Pom's. Cette disquette reprend tous les programmes de la revue, agrémentés 
d'explications, d’un générique (souvent) et de programmes de démonstration (parfois). Les 
disquettes peuvent étre commandées séparément. 

Le recueil numéro 1 de Pom's regroupant les quatre premiers numéros est en train de « partir » à 
toute vitesse, Attention, nous n'en avons tiré que 5 000 ! On peut commander les trois disquettes du 
recueil séparément pour 150 francs (voir le bulletin). 


Nous vous remercions de continuer à nous faire confiance et encourageons tous les lecteurs qui nous 
envoient leurs contributions. 


Nous vous donnons rendez-vous du 14 au 18 juin à notre stand (T3) au salon Micro-Expo. 


Hervé Thiriez 


Ont collaboré à ce numéro : Jean-Jacques Crépy - Alexandre Duback - Jean-François Duvivier - Philippe François - Oli- 
vier Herz - Yvan Koenig - Régis Lardennois - Bruno Lemaire - Thierry Le Tallec - Michel Marquis - Guy Mathieu - Gilles 
Mauffrey - Gérard Michel - Denis Sureau - Hervé Thiriez - Jacques Tran-Van. 

Rédacteur : Olivier Herz — Dessins : Laurent Bidot. 


Directeur de la publication - rédacteur en chef : Hervé Thiriez - Siège social et abonnements : Éditions MEV - 49, rue 
Lamartine - 78000 Versailles - Rédaction : 59, bd de Glatigny - 78000 Versailles - Tél. : (3) 918.13.07 - Courrier des 
lecteurs (logiciel) : Olivier Herz - 17, rue du Gros Chêne - 44300 Nantes. 

Régie publicitaire : Force 7 - Anne Jourdan - 39, rue de la Grange-aux-Belles - 75483 Paris Cedex 10 - Tél. : {1) 
238.66.10. 

Diffusion auprès des boutiques et librairies : Éditions du PSI - 41-51, rue Jacquard - B.P. 86 - 77400 Lagny-sur-Marne. 
Composition - Impression : SIM - 52, rue Servan - 75011 Paris - Tél. : (1) 357.51.20. 
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Pom's n° 7 5 





D | 


CTRL - #. - RESET 
(ou les arcanes du Monitor Apple Ill) 


Bruno Lemaire - Gilles Mauffrey 


Tout utilisateur d'Apple HI. surtout 
s’il a aussi utilisé un Apple Il, s’est 
sans doute posé au moins une fois 
les questions suivantes : qu'y a-t-il 
derrière le rempart mystérieux du 
SOS ? Peut-on utiliser le langage 
machine de l'Apple /il aussicommo- 
dément que celui de son petit frère, 
puisqu'ils utilisent tous deux le 
même processeur, le 6502 ? 


Nous allons donc essayer de donner 
dans cet article quelques éclaircisse- 
ments sur l'utilisation et l'implanta- 
tion mémoire des principales routi- 
nes moniteur de l'Apple Il, en réser- 
vant à un article ultérieur la présen- 
tation de la structure du SOS. 


Structure de la mémoire 
A. Généralités 

La mémoire de l'Apple /f peut être 
considérée comme essentiellement 
composée de zones (banques) de 
32 K-octets ; une exception est faite 
pour la zone s'étendant de $F000 à 
$FFBF qui contient normalement le 


moniteur en ROM, mais qui peut 
être « switchée » pour contenir une 
zone RAM du SOS. 


Le nombre de ces zones est variable, 
et dépend de la configuration de 
l'utilisateur. Il y a ainsi 4 zones pour 
un Apple 128 K, et bien sûr 8 zones 
pour un Apple 256 K.Il n'y a cepen- 
dant que 64 K directement adressa- 
bles par l'utilisateur, décomposés en 
une banque « système » allant de 
$0000 à $1FFF, et de FA000 à 
$FFFF, et en une banque utilisateur 
allant de 52000 à $9FFF. C'est cette 
banque qui est « switchable » par 
une simple modification du contenu 
de $FFEF. Ce contenu varie de FO à 
F2 pour un 128 K, et de FO à F6 
pour un 256 K. 


Si l'on veut implanter en mémoire 
un programme machine, on dispose 
donc sans problème d'au moins 
32 K, plus une partie de là banque 
système non utilisée par le SOS. 

Par contre, si l’on désire utiliser 
davantage de mémoire en modifiant 


Commandes moniteur 


le numéro de la banque utilisée, il 
faut veiller à ce que la partie du pro- 
gramme qui veut adresser d’autres 
banques soit sur la banque système. 


B. Zones particulières 


1} En dehors de la page zéro tradi- 
tionnelle (réservée pour différents 
pointeurs et pour l’adressage indirect 
du 6502), et de la pile système en 
page 1 (de $100 à $1FF), d'autres 
zones font fonction de page zéro 
(adressage indirect étendu, unique- 
ment lorsque le SOS est actif) et de 
pile pour le SOS et pour le pro- 
gramme machine chargé au 
moment du boot. 

2) Mémoire écran. 

— Pour le texte. En 40 colonnes, 
elle utilise les positions de $400 à 
$7FF. En 80 colonnes, elle utilise 
aussi $800 à $BFF ; les caractères 
de rang pair sont alors stockés de la 
page $4 à la page $7, les autres 
étant placés entre les pages $8 et $B. 
— Pour les graphiques. Commence 
en page $20. 








Routines moniteur 


Les débuts de chaque routine sont 
données en hexadécimal ; celles-ci 
sont nommées d'après la correspon- 
dance qu'elles ont avec celles de 
l'Apple Hi. 


F9AE — PRBYTE (print a hexade- 
cimal digit) envoie le con- 
tenu de l'accumulateur 
sur l'organe de sortie 

— PRHEX envoie le quartet 
bas de l'accumulateur sur 
l'organe de sortie 

FB7D — HOME 

FBAF — CROUTI freturn with 

clear) : nettoie l'écran à 
partir de la position cou- 


F9B7 


Symbole Syntaxe 
G nG 
J nd 
S octet < m.pS 
M n<m.pM 
V même syntaxe que M 
U 
R bloc <bufl buf2R 
W bloc <buf1 buf2W 


Utilisation 


Exécute le programme commençant en n 


Saute à l'octet n 


Recherche l'existence d'un octet entre metn 
Copie la zene comprise entre m et p à partir den 


(= Verify) 


Jump en 3F8 pour routine utilisateur (User) 
Transfère une zone disque en zone mémoire 
Fait l'opération inverse. Attention : opération potentiellement dangereuse ! 


m.n et p sont des adresses en hexadécimal bufl er buf2 désignent le début et la fin du buffer de données. 


rante du curseur, puis 
appelle CROUT 
(= retour chariot) 

FCO6 — COUT 1: envoie le 
caractère qui est dans 
l'accumulateur. 

FCD5 — GETLN : collecte une 
ligne de 80 caractères 

FD07 — CROUT : envoie un 
retour chariot 

FD6C — KEYIN : lit le clavier de 
l'Apple {if 

FD60 — RDKEY : traite le carac- 
tère saisi au clavier 


Clefs 


Le préfixe « e » est mis pour Escape. 
eL : nettoie fin de ligne 





(e.E en A Il) 

e.P : nettoie bas de l'écran 
(e.F en AIl) à partir du 
curseur 

e.Ss : Home 

e.flèche : déplacement dans le sens 
de la flèche 

e.8 : passage en 80 colonnes 

e.4 : passage en 40 colonnes 


(pour sortir du mode Escape, taper 
deux fois d'affilée sur Escape). 


Nous ferminons ici cette première 
présentation, remettant à un autre 
article une analyse de la structure du 
SOS. Bien entendu, le titre de cet 
article vous indique la façon d'obte- 
nir le mode moniteur. Il est difficile 
de le découvrir par tâtonnements | 
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Cryptographie à clef publique 


Le programme ci-joint intéressera 
sans doute un grand nombre 
d'industriels ainsi que tous ceux qui 
sont préoccupés par le secret de 
leurs communications : il s’agit de 
l'implémentation sur Apple Il en 
Pascal d'un système de cryptogra- 
phie à clef publique dont nous pou- 
vons assurer l'inviolabilité même 
avec l’aide des plus puissants ordina- 
teurs. Pour l'utiliser, il n’est pas 
nécessaire de connaître le langage 
Pascal, mais il faut savoir se servir du 
SYSTEMEDITOR et du SYSTEM. 
FILER. 


Cryptosystème à clef 
publique 


Dans un cryptosystème convention- 
nel, l'expéditeur et le destinataire du 
message possèdent tous deux une 
clef secrète (c'est-à-dire un ensemble 
de paramètres, habituellement des 
grands nombres choisis au hasard) 
permettant d'exécuter l'algorithme 
de codage du message par l’expédi- 
teur et celui de décodage par le des- 
tinataire. Ce message, une fois 
codé, peut être transmis par un 
moyen de communication non 
secret, comme la radio. Il est clair 
que la fiabilité d'un tel système 
repose sur le secret de la clef, qui 
doit être distribuée au moyen de 
canaux sûrs, afin de ne pas être 
interceptée. 


Dans un cryptosystème à clef révé- 
lée (ou publique), on n’a pas besoin 
d'un canal secret pour distribuer les 
clefs. Au contraire, chaque utilisa- 
teur possède deux clefs : une clef de 
codage qu’il rend publique et une 
clef de décodage privée. L’expédi- 
teur code donc le message avec la 
clef publique du destinataire, qui le 
décode avec sa clef privée. L'inviola- 
bilité réside dans le fait qu’on déduit 
très facilement par le calcul la clef 
publique à partir de la clef privée 
alors que l'inverse exigerait des mil- 
liers d'années de calcul sur ordina- 
teur, voire plus! C'est ce qu'on 
appelle une fonction à sens unique 
et à gâche : ce calculinverse ne peut 
se faire qu'en connaissant une infor- 
mation secrète, la gâche de la fonc- 
tion 
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Olivier Herz 


(XSYSTEME COMPLET DE CRYPTOGRAPHIE À CLEF PUBLIQUEX) 
CX$C (CC) OLIVIER HERZ OCTOBRE 1982 POUR POMSx) 
PROGRAM CRYPTOGRAPHIE ; 

USES APPLESTUFF ; 

VAR COMMANDE : CHAR ; 


PROCEDURE MENU; 

CONST TAILLE  =107: 
LONGUEUR =34 ; 

= INTEGER£ LONGUEUR] ; 
CHOIDECA =SET OF CHAR; 

VAR BS,CR :CHAR; 
NOM : STRING; 
IMVFACTEUR, 
BASE ,FACTEUR :ENTIER; 


TYPE 


CLEF :ARRAYI 1..TAILLE) OF ENTIER; 
PUBL I QUE :TEXT; 

PRIVEE :FILE OF ENFIER:; 

CODE ,CLAIR  :TEXT; 

MODTAB :ARRAYI 1..LONGUEURJ OF ENTIER; 


CHXXXXXXXXXXXXXXXXXXXXALLXLXXXXLXXXXXX) 
{X PROCEDURES HABITUELLES COURANTES x) 
{x MERCI MICHEL CRIMONT! x) 
CHXXXXXXXXXXXXXLXXXXXALXXXXXLXALLLXXXX) 


PROCEDURE MESSAGE 1 : INTEGER; S:STRINO) ; 
BEGIN GOTOXY(@ ,1) ; MRITECS,CHR(I13} END; 


FUNCTION PRENCAR(BONSET : CHOI DECA) : CHAR ; 
VAR CH : CHAR; 
BEGIN 
REPEAT 
READCKEYBOARD , CH) ; IF EOLNCKEYBOARD) THEN CH:=CR; 
IF NOT (CH IN BONSET) THEN WRITE(CHR( 7) ) 
£LSE 1F CH IN’ ‘’.,’z] THEN WRITE(CH) 
UNTIL CH IN BONSET; 
PRENCAR : =CH 
END ; 





PROCEDURE OUT(S:STRING) ; 
VAR CH :CHAR; 
BEGIN 
CLOSE(PRIVEE) ; CLOSE(PUBLIQUE); CLOSE(CODE) ; CLOSECCLAIR) ; 
PAGE OUTPUT) ; MESSAGES 18 ,S) ; WRITECCHR(?7)) ; 
MESSAGEX 52,7 APPUYEZ SUR <RETURND”’) ; 
CH:=PRENCAR(LICRI) ; EXIT(MENU) 
END ; 


_ 


rh 
2 
F4 
+ 
se 
+-< | 
S— 
= 

é 
1 
ëx 
# 
== 
es 
28 
| - 4 
34 
— 


PROCEDURE SORTIE ; 
BEGIN OUT{’CLEF OU MESSAGE NON VALIDE’) END; 


PROCEDURE DEHORS; 
BEGIN OUT(’TITRE OÙ LECTEUR NON VALIDE’) END; 


PROCEDURE PRENENTIER(S:STRING; VAR ENT:ENTIER) ; 


VAR I :1..TAILLE; 
BEGIN 
ENT :=0 ; 


1F (LENGTH(S)—8) OR (LENGTH(S)>36) THEN SORTIE; 
FOR 1:=1 TO 1ENGTH(S) DG 
BEGIN 
IF NOT (SLI) IN £°0°..*9°J) THEN SORTIE; 
ENT :=ENTX 10 +<ORDXSL I 1) -4B) 
END 
END ; 


PROCEDURE NOMFICHIER(S:STRING; 1:INTEGER) ; 
UAR SI :STRINGE 1]; 
BONSET :CHOIDECA; 
BEGIN 
CLOSE(PRIVEE) ; CLOSE(PUBLIQUE) ; CLOSECCODE) ; CLOSE(CLAIR) ; 
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La méthode 


Les systèmes cryptographiques 
actuels tendent de plus en plus à uti- 
liser des problèmes dits de type NP 
{non polynomiaux}) caractérisés par 
le fait que le nombre d'opérations 
nécessaires à leur résolution croît 
comme une fonction exponentielle, 
et non polynomiale. de leur taille. 


Notre programme utilise un 
cryptosystème basé sur le problème 
NP de l’empilement : étant donné n 
jetons de hauteurs respectives A] 
A, et une hauteur C, comment 
peut-on obtenir C en empilant un 
sous-ensemble de ces n jetons ? On 
ne connaît actuellement pas d'autre 
solution que la recherche systémati- 
que de tous les empilements possi- 
bles (au nombre de 2 puissance n). 
Par contre, ce problème est très 
facile dans un cas particulier : quand 
la hauteur d’un jeton est supérieure 
à la somme des hauteurs de ceux qui 
le précèdent {i.e. A; somme de 1 äi- 
1 des A4. Il suffit alors pour le résou- 
dre d’essayer de soustraire de Cle 
dernier jeton ; si c’est impossible, on 
essaye l’avant-dernier, etc. jusqu’à 
ce que l’on y arrive; puis l'on 
recommence le processus avec le 
résultat de la soustraction, etc... On 
parvient ainsi à la solution en n opé- 
rations au plus. On conçoit donc que 
l'on utilisera comme clef privée les 
jetons d’un problème facile et 
comme clef publique ceux d’un pro- 
blème difficile. 


Explication des calculs 


On note B;...B,. les « hauteurs » du 
« problème facile » de TAILLE n; 
soient M un très grand nombre {la 
BASE) supérieur à la somme des 
Bet F (le FACTEUR) inférieur à M. 
F doit être premier avec M afin que 
lon puisse trouver son inverse 
modulo M (l'INVFACTEUR E, tel 
que E.F = 1 modulo M). Ceci cons- 
titue la clef privée et la gâche est for- 
mée de M et de E. On calcule alors 
les n « hauteurs » A1...A, du « pro- 
blème difficile » par la formule A; = 
(BF) moduloM ; les À; forment la 
clef publique. 


Pour le codage, on décompose le 
texte en bits valant O où 1 ; nous 
avons utilisé pour coder un caractère 
les 6 chiffres de la décomposition 
binaire de la différence entre son 
code ASCII et 32 : c'est le tableau 
BIT de la procédure CODAGE , les 
minuscules, de code ASCII supé- 
rieur à 96, ont été remises en majus- 


PAGECOUTPUF) ; MESSAGE( 18,9) ; Si:=’ ‘3; NOM:=’"; 
BONSET : =t ‘8’ 29" PS AS 4 as ..°z” ,“# 5”:/1; 
REPEAY 
IF ÉENGTHCNSM)=8 THEN Si 11 :=PRENCAR(BONSET) 
ELSE IF LENGTH(NOM)=I THEN SIL 1] :=PRENCAR(ICR, BSJ) 
ELSE SIt1]:=PRENCAR(BONSET+[ICR,BS)J) ; 
IF S1[1) IN BONSET THEN NOM :=CONCAT (NOM, SI) 
ELSE IF Sil1]1=BS THEN BEGIN 
HRITECBS,’ ‘ ,89) ; 
DELETE<CNOM , LENGTH(NO!M) , 12 
END 
INTIL SIL 1I1=CR; 
IF POS(’#7,NOM)=8 THEN NOM :=CONCAT( ‘#4: ” ,NOM) 5 
IF LENGTH(NOM) I THEN NOM:-=COPY (NOM, 1,1) 
END ; 


FUNCTION PLUSGRAND(A,B: ENTIER) : BOOLEAN ; 
VAR U,U :STRING; 
BEGIN 

STRÇCA,U) ; STR(B,UV) ; 

IF LENGTH(U) >LENGTH(U) THEN PLUSGRAND :=TRUE 

ELSE IF LENGTH(U) <LENGTH(U) THEN PLUSGRAND : =FALSE 
ELSE PLUSGRAND :=U>U 

END; 


FUNCTION EGAL(A,B:ENTIER) : BOOLEAN ; 
VAR U,U :STRING; 
BEGIN STR(A,U) ; STR(B,U) 5 EGAL:=U=U END; 


FUNCTION RND:INTEGER; 
BEGIN RND :=RANDOM DIU 16384 END; 


PROCEDURE ECRISX I : INTEGER) ; 
BEGIN WRITEC’.’); IF I=TAILLE DIV 2 THEN HRITELN END; 


PROCEDURE FAITMODTAB(ENT : ENTIER) ; 
VAR I :1..LONGUEUR; 
BEGIN 
FOR 1:=i TO LONGUEUR DG 
BEGIN 
MODTAB£ 1]:=ENT-CENT DIU BASE) XBASE; ENT :=198XMODTABL 1) 
END 
END; 


PROCEDURE MODULO(UAR ENT : ENTIER) ; 
UAR I :1..LONGUEUR; 
S :STRING; 
BEGIN 
STRCENT ,S)> ; ENT:=8; 
FOR 1:= 1 TO LENGTH(S) DO 
ENT :=ENT+ (ORDCSI I 3) -48) XMODTABE LENGTH(S) +1-1); 
ENT :=ENT-(ENT DIU BASE) XBASE 


END ; 
CHXXXXXXXXX) 
CX CODAGE X) 
CHXXXXXXXXXD 
PROCEDURE CODAGE ; 
VAR 1,J,K :INTEGER; 
CH CHAR; 
S : STRING; 
BIT 1ARRAYI9..63,1..6] OF 8..1; 
ENT "ENTIER; 


BEGIN (XCODAGEX) 

NOMFICHIER(’NOM DU CORRESPONDANT : ’,13) ; 

CXS$I-X) 

RESET (PUBLIQUE ,; CONCAT (NOM;  .TEXT D): 

IF IORESULT<>8 THEN DEHORS; 

CX$I+X) 

PAGE OUTPUT) ; WMRITELN(’LECTURE DE LA CLEF PUBLIQUE”) ; 

FOR 1:=1 TO TAILLE DO 

BEGIN 
IF EOF(PUBLIQUE)> THEN SORTIE; ECRIS(I) ; 
READLN(PUBLIQUE,S) ; PRENENTIER(S,CLEFL1)) 

END ; 

NOMF SCHIERC/NOM DU MESSAGE: ”,11); 

CHXSI-X) 
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cules et les caractères de contrôle, 
de code inférieur à 32, ont été rem- 
placés par des espaces, sauf le retour 
chariot, de code 13, remplacé par le 
code 95 qui représente un caractère 
inaccessible au clavier et donc peu 
usité. On découpe le message en 
groupes successifs de n bits 
X1---Xn- Si le dernier groupe con- 
tient moins de n bits, on le complète 
par des bits aléatoires. Le codage 
consiste à calculer pour chaque 
groupe la hauteur C, somme de 1 à 


n des A;X;. 


Pour décoder, on commence par 
calculer D = C.E modulo M, puis 
l'on résoud le problème d’empile- 
ment facile avec les B; de façon à 
trouver les n bits Y...Y, tels que D 
soit la somme des B;Y;. Or on voit 
aisément que les Y; sont nécessaire- 
ment égaux aux Xi ; is permettent 
donc de reconstituer le texte original 
(en n'oubliant pas de remplacer le 
caractère de code ASCII 95 par un 
retour chariot). 


Réalisation pratique 


L'obligation d'utiliser de très grands 
nombres rendait pratique l'emploi 
du langage Pascal qui possède des 
entiers ayant déjà 36 chiffres (les 
grands entiers). De pius, la portabi- 
lité du Pascal permet d'utiliser le pro- 
gramme CCP sur d'autres ordina- 
teurs. 


Le programme utilise et stocke les 
clefs et messages sous forme de 
fichiers. Hormis la clef privée, qui est 
un fichier de type DATA contenant 
des grands entiers (afin d'éviter que 
des indiscrets ne la lisent), la clef 
publique et les messages codé et 
clair sont des fichiers TEXT qui peu- 
vent être lus ou écrits avec le 
SYSTEM.EDITOR la clef publique 
et le message codé étant composés 
de grands entiers transformés en 
chaînes de caractères). 


Le programme est en fait une 
grande procédure (MENU) destinée 
à permettre le retour au menu en cas 
d'erreur par une instruction EXIT 
(voir les procédures SORTIE, 
DEHORS et OUT). Les procédures 
ou fonctions MESSAGES et PREN- 
CAR sont classiques et RND fournit 
un bit aléatoire. PRENENTIER fait 
l'inverse de la procédure Pascal STR 
en transformant une chaîne en un 
grand entier. NOMFICHIER prend 
au clavier le nom d'un fichier sans le 
suffixe qu’elle rajoute automatique- 
ment (.TEXT et DATA pour les 
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RESET{CLAIR,ECONCAT{(NOM,’.8.TEXT’)); 
IF IORESULT=8 THEN REMRITE(CODE , CONCAT {NOM , ’ . i.TEXT’)5; 
IF IORESULT<3>8 THEN DEHORS; 
CXSI+X) 
FOR 1:=8 TO 63 DO 
BEGIN 
K:=13; FOR J:zi TO 6 DO 
BEGIN BITLI,J)1:=K MOD 2; K:=K DIV 2 END 
END ; 
PAGEXOUTPUT) ; WRITELNC'/CODAGE") ; I1:=TAILLE; ENT:=8; 
1F EOLNCCLAIR) THEN BEGIN READLNÇCCLAIR) ; WRITELN; K:=63 END 
ELSE BEGIN 
READ(CCLAIR,CH) ; K:=ORDC(CH)-32; IF K<8 THEN K:=8; 
IF K>63 THEN K:=K-32; WRITECCHR(K+32)) 
END ; 
FOR J:=é6é DOWNTO 1 DO 
BEGIN 
ENT : =ENT+CLEFIIIXBITIK,J); 
s=l-1; 1F 1=6 THEN BEGIN 
STRÇENT,S) ; WRITELN(CODE,S) ; 
I:=TAILLE; ENT :=8 
END 

END ; 

IF <EOFCCLAIR)) AND (ICDTAILLE) THEN 

BEGIN 

ë 
E 


REPERT 
REPERT ENT:=ENT+#+CLEFII3XRND; 1:=1-1 UNTIL 1=8; 


Suite du listing page 11 


Programme VÉRIFICATION 
Suite et fin de l'article 


Effacement du directory en Pascal 
Pages 59-60 


{#1-5 
2RCGAAN VERTFICATION: 
VAR F:FILE OF INTEGER; 


CL:CHAR: 
J: IATEGER: . 
00:" ‘] NTEGER , 


BEST 
2Q3E (QUTEUTI : 
«A: TE(CHR(42)): 

nRÈTE Ve 

nY2 TI X 2 PROGRAMME DC DEMONSTRATION DE L''EFFICACITE’): 

WAITELN(? Di PROCEDE D'’EFFACEMENT DU DIRECTORY EN MEMÔIRE" ) ; 

ARITELN; 

21 TELN( INSERER LNE DISQUETTE PROGRAMME VISRGE et frapper’); 
MALTE 20" POUR LIRE LE DIRECTORY DE LA NOUVELLE D! PROGRAMME” } ; 
?[TELN (ou une autre touche JOUR CONSEVER L’’ ANCIEN DIRECTORY” ) : 

RERD (CL): MRITELN:WRITELN: 
IF C=’C” “HN XARK (PO); { efface en mesoire le directory de la disquette } 
{ PROGRAMME sur laque:le se trouve le programme } 
RENS:TE(F, TEST}: 

ASS PUT(F): 
CLS lE LOCK : 

[= (t= 1 m 

THEN WRITELN(7IL N'°Y À DAS D’'ERREUR DE DIRECTORY’) 
CLGE KRITELN('LE DIRECTORY DE LA VERITABLE DISQUETTE APPLEL EST ?, 
Ra l SUR LA FAUSSE ): 
BRITELN(*REMETTRE LA VERITABLE DISQUETTE PROGRAMME et frapper ia barre espace” ); 
READ{CL) ; 


MARK (LD) 
EN. 


D 


clefs publique et privée, O TEXT et 
.1.TEXT pour les messages en clair 
et codé). S'il n’y a pas de préfixe, 
elle rajoute # 4 : (le préfixe doit indi- 
quer le numéro du drive et non le 
nom de la disquette). PLUSGRAND 
et EGAL comparent deux grands 
entiers (en théorie, rien n'empêche 
de comparer deux grands entiers 
comme on le fait avec des entiers ou 
des réels, mais en pratique cela pro- 
duit des erreurs et des « plantages » 
à l'exécution ; cette cause d'erreurs 
ne fut pas évidente à découvrir et 
reste mystérieuse !). FAITMODTAB 
et MODULO permettent de calculer 
les expressions B;.F modulo M et 
C.E modulo M (alors que les poduits 
B;.F et C.E excèdent les 36 chiffres) 
grâce au tableau MODTAB qui con- 
tient les valeurs modulo M des pro- 
duits de F ou E par les puissances 
successives de 10. 


Les procédures CODAGE et DECO- 
DAGE comportent deux parties : la 
demande des noms des fichiers puis 
le codage ou le décodage propre- 
ment dits. Si l'opération de déco- 
dagerencontre un problème d’empi- 
lement ne pouvant être résolu (mau- 
vaise clef ou mauvais message), elle 
s'arrête (on peut la laisser continuer 
si l’on supprime la ligne avant le 
UNTIL). 


La procédure ALEATOIRE fournit 
un grand entier aléatoire compris 
entre INF et SUP-1. La méthode uti- 
lisée est la dichotomie qui, bien que 
longue d'exécution, est la plus facile 
à mettre en œuvre avec des grands 
entiers. La procédure récursive 
BEZOUT permet de résoudre par 
l'algorithme d'EUCLIDE l'équation 
de BEZOUT AX-BY=1 quand 
A<B. Elle estutiliséeici avec À = F, 
X=E, B=M et Y = K où 
EF = KM + 1. La procédure 
GENERATION commence par cal- 
culer la clef privée en se fixant pour 
chacun de ses entiers des limites 
supérieure et inférieure confortables 
(SUP et INF) ; puis elle calcule la clef 
publique. 

Notons que la constante TAILLE 
vaut 107, ce qui est à peu près le 
maximum que l'on puisse prendre 
avec ce programme. Mais on peut 
parfaitement utiliser ce programme 
avec une valeur plus faible. Remar- 
quons que le calcul exhaustif de tous 
les empilements lorsqu'on a 
107 jetons (i.e. le décodage de C) 
prendrait avec un ordinateur étu- 
diant 1000 miliards d'empilements 
par seconde (ne révons pas) 
5000 milliards d’années ! Remar- 


quons encore que 107 nest pas 
multiple de 6, le nombre de bits par 
daractères, ce qui permet 
d'embrouiller encore plus un éven- 
tuel décrypteur en codant certaines 
lettres à cheval sur deux empile- 
ments. On peut prendre une 
TAILLE multiple de 6; chaque 


empilement correspond alors exac- 
tement à TAÏLLE/6 lettres, ce quile 
rend autonome. 





Mode d'emploi 


Signalons tout d'abord que pour 
envoyer un fichier TEXT à un cor- 
respondant on peut, soit lui envoyer 
une disquette, soit utiliser un 
modem, soit encore imprimer et 
envoyer (par radio où par courrier) 
le texte afin qu'il soit édité et sauvé. 


Dans un premier temps, chaque uti- 
lisateur du système CCP fabrique un 
système de clefs. M. Dupont par 
exemple répondra G et DUPONT 
{ou bien # 5 : DUPONT) au pro- 
gramme CCP et l'Apple fabriquera 
sur la même disquette les fichiers 
DUPONT.TEXT (clef publique qu'il 
devra fournir à ses interlocuteurs) et 
DUPONTDATA (clef privée qu'il 
devra garder sur une disquette dans 
un coffre à l'abri). 


Pour envoyer le message MISSIVE à 
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M. Durand, M. Dubois commen- 
cera par éditer son texte (en y glis- 
sant si possible de nombreux signes 
de ponctuation ne gênant pas la 
compréhension du texte, ce qui rend 
encore plus difficile tout essai de 
décryptage) et il le sauvera sous le 
nom MISSIVE.O.TEXT. Puis, ayant 
vérifié qu'il possède le fichier 
DURANDITEXT, ïil répondra C, 
DURAND (ou bien # 5 DURAND) 
et MISSIVE (ou bien # 5 -MISSIVE) 
au programme CCP qui fabriquera 
le fichier codé MISSIVE.1.TEXT 
(sur la disquette où se trouve MIS- 
SIVE.O.TEXT), qui devra parvenir 
à M. Durand. 


Pour le décodage, ce dernier sortira 
le fichier DURAND.DATA de son 
coffre et répondra D, DURAND (ou 
bien # 5 :DURAND) et MISSIVE 
{ou bien # 5 :MISSIVE) au pro- 
gramme CCP qui recréera pour lui le 
fichier MISSIVE.OTEXT (sur la 
disquette où se trouve MISSIVE 
1.TEXT). Notons que pendant les 
opérations de codage et de déco- 
dage. le message en clair apparaît 
sur l'écran au fur et à mesure de sa 
lecture où de son écriture. 


En conclusion, nous avons là un 
système cryptographique très simple 
d'emploi et parfaitement sûr. Les 
temps d'exécution sont de 6 minutes 
pour écrire le système de clefs, 
d'environ 9cps (caractères par 
seconde) pendant le codage et 
d'environ 5 cps pendant le déco- 
dage. Mais ces temps diminuent for- 
tement avec la constante TAILLE et 
il y a un compromis à trouver entre 
la vitesse d'exécution et la sécurité 
du codage. Remarquons que le 
cryptosystème utilisé ne permet mal- 
heureusement pas l’authentification 
de l'expéditeur, contrairement à un 
système plus récent, développé au 
MT. dans lequel les clefs publique 
et privée ont des rêles symétriques. 
Mais ce dernier système est pratique- 
ment impossible à mettre en œuvre 
sur Apple Il car il utilise de très 
grands nombres premiers. 


Bibliographie 


« La guerre des codes secrets » par 
David Kahn chez Inter Editions est 
un excellent ouvrage sur l’histoire du 
chiffre. Dans « Les progrès des 
mathématiques », Pour la Science 
publie un recueil de ses articles de 
mathématiques dont «Les mathé- 
matiques de la cryptographie à clef 
révélée », écrit par l'un des auteurs 
du système à empilement. 
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STRCENT,S) ; WRITELNCCODE,S) ; 
END 
UNTIL EOF(CLAIR) ; 
CLOSE(CLAIR) ; CLOSE(CODE , LOCK) 
END; (XCODAGEX) 


CXXXXXXXXXAXEX) 
(X DECODAGE X) 
CXXXXXXXXXXXX) 


PROCEDURE DECODAGE ; 

VAR 1,J,K :INTEGER:; 
S : STRING; 
ENT  :ENTIER: 


BEGIN <XDECODAGEX) 

NOMFICHIER(C’VOTRE NOM: *’,13) ; 
CXH1 -X) 
RESET(PRIVEE , CONCAT (NOM, ‘ .DATA’)) ; 
IF IORESULT<D>8 THEN DEHORS; 
CXBI +X) 
PAGE COUTPUT) ; WRITELNC’LECTURE DE LA CLEF PRIVEE”) ; 
FOR 1:=1 TO TAILLE DO 
BEGIN 

IF EOFCPRIVEE) THEN SORTIE; ECRIS(I); 

CLEFLC1):=PRIVEE" ; GET(PRIVEE) 
END ; 
IF EOFCPRIVEE) THEN SORTIE; BASE:=PRIVEE"; GET(PRIVEE) ; 
IF EOFC(PRIVEE) THEN SORTIE; INVFACTEUR:=PRIVEE" ; 
NOMFICHIER(C’NOM DU MESSAGE: ” ,11) ; 
CXSI-X) 
RESET(CODE , CONCAT (NOM , ’ . 1.TEXT’)3 ; 
IF IORESULT=8 THEN REWRITECCLAIR, CONCAT(NOM,’ .8.TEXT’)}; 
IF IORESULT<>8 THEN DEHORS; 
CXBI+%) 
FAI TMODTAB( INVFACTEUR) ; 
PAGE COUTPUT) ; WRITELN( ‘ DECODAGE‘) ; J:=8; K:=8; 
REPEAT 

READLN(CODE ,S) ; PRENENTIER(CS,ENT) ; MODULOCENT) ; 

FOR 1:=TAILLE DOWNTO 1 DO 

BEGIN 

J:=J+1; K:=2XxK+1; 
IF PLUSGRAND(CLEFLIJ),ENT) THEN K:=K-1 
ELSE ENT:=ENT-CLEFC1J; 


IF J=é THEN 
BEGIN 
IF K=63 THEN BEGIN WRITELN3; WRITELNÇCCLAIR) END 
ELSE BEGIN WRITECCHR(K+32)) ; WRITECCLAIR, CHRCK+32) ) 
J:=60:; K:=08 
END 


END ; 
IF NOT EGRLCENT,8) THEN SORTIE 
UNTIL EOF(CODE) ; 
CLOSE(CODE) ; CLOSECCLAIR, LOCK) 
END ; (XDECODAGE*#) 


CXXXXXXXXXXXXXXXXXXXXXXX XX) 
CX GENERATION D’UNE CLEF X) 
CXXXXXXXXXXXXXXXXXXXXXXX XX) 
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PROCEDURE GENERAT I ON ; 


VAR I :1..TAILLE; 
S :STRING; 
BON :BOOLEXN ; 


INF, SUP ,BIDON :ENTIER; 


PROCEDURE ALEATOIRECVAR ENT :ENTIER) ; 
VAR I :1..4; 
À,B :ENTIER; 
BEGIN 
A:=INF; B:=SUP;: 
REPEAT 
ENT:=<A+B) DIV 2: 
IF NOT EGAL(A+B,2XENT) THEN ENT :=ENT +RND ; 
IF RND=6 THEN B:=ENT ELSE Â:=ENT 
UNTIL PLUSGRAND(3,B-À) ; 
ENT :=Â; IF EGAL(2,B-A) THEN ENT : =ENT +RND 
END ; 


PROCEDURE BEZOUT(A,B:ENTIER; VAR X,Y:ENTIER) ; 
VAR Q,R :ENTIER; 
BEGIN 
X:=0:; Y:=068;: 
IF BON THEN 
BEGIN 
G:=B DIV À; 
IF EGAL(B,GXA) THEN IF EGAL(A,1) THEN: 
BEGIN Y:=1; X:=B+1 END 
ELSE BON:=FALSE 
ELSE BEGIN 
B:=B-QXA; R:=A DIV B; 
IF EGAL(A,RXB) THEN IF EGAL(B,1) THEN 
BEGIN Y:=A-1; X:=i+QXY END 
ELSE BON:=FALSE 
ELSE BEGIN 
A:=A-R*B; BEZOUT(A,B,X,Y) ; 
Yi=Y+REX 3; X:=X+OXY 
END 


END 
END ; 


BEGIN CXGENERAT I ONX) 

NOMFICHIER( ‘ VOTRE NOM: ‘”, 13) ; 

CX$I-X) 

REWRITECPRIVEE, CONCAT (NOM, ‘ .DATA’)) ; 

1F IORESULT<2@ THEN DEHORS:; 

CX$1+%X) 

SUP :=18; INF:=3; 

PAGE COUTPUT) ; WRITELNC’ECRITURE DE LA CLEF PRIVEE”); 

FOR 1:=1 TO TAILLE DO 

BEGIN 
ALEATOIREXCCLEFLI)); PRIVEE* :=CLEFLII1J; PUT(PRIVEE) 
ECRIS (I): INF:=INF+CLEFLCIJ; SUP:=2XSUP 

END ; 

INF :=SUP; SUP :=2XSUP ; 

ALEATOIRECBASE) ; PRIVEE” :=BASE; PUT(PRIVEE) ; 

WRITE(’.’)3; INF:=BASE DIV 2; SUP:=B8ASE ; 
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REPEAT 
ALEATOIRECFACTEUR) ; WRITE(’.’); 
BON :=TRUE; BEZOUT(FACTEUR, BASE , INVFACTEUR, BI DON) 
UNTIL BON; 
PRIVEE" :=INUFACTEUR; PUT(PRIVEE) ; CLOSECPRIVEE, LOCK) ; 
CX$SI-X) 
REWRITE (PUBLIQUE , CONCAT (NOM, ‘ . TEXT ‘’) ) ; 
IF IORESULT<>8 THEN DEHORS; 
CKXSI+X) 
WRITELN; WRITELN; WRITELNC’ECRITURE DE LA CLEF PUBLIQUE”): 
FAI TMODTAB(FACTEUR) ; 
FOR I1:=1 TO TAILLE DO 
BEGIN 
MODULO(CLEFLI3>; ECRIS(CI); 
STR(CLEF£11,S); WRITELNCPUBLIQUE, S) 
END ; 
CLOSE PUBLIQUE , LOCK) 
END; CXGENERAT 1 ONX) 


BEGIN (XMENUX) 
CR:=CHRC13) ; BS:=CHR(S) ; PAGECOUTPUT) ; RANDOMIZE ; 


MESSAGE 2, * OLIVIER HERZ PRESENTE C.C.P.°); 
MESSAGE(S , ” SYSTEME COMPLET DE’); 
MESSAGE( 7,” CRYPTOGRAPHIE À CLEF PUBLIQUE. "°); 
MESSAGEX 11,” G) ENERER VOTRE SYSTEME DE CLEFS”); 
MESSAGEX 13, ” C) ODER UN MESSAGE”) ; 

MESSAGE 15, ” D) ECODER UN MESSAGE:) ; 

MESSAGEX 17,” Q)UITTER LE SYSTEME C.C.P.°); 


MESSAGE(28 ,’ VOTRE CHOIX:°’); 
COMMANDE :=PRENCAR(E ‘6° ,’C°,’D°,°0°,’a°,"c","’d°,"q"1); 
CASE COMMANDE OF 
‘G’,°9°: GENERATION; 
‘C°’,’c’3:CODAGE ; 
‘D’ ,’d”’:DECODAGE 
END 
END ; CXMENUX) 


BEGIN CXCRYPTOGRSPHIEX) 


REPEAT MENU UNTIL COMMANDE IN £°QG°,’a°3 
END. {XCRYPTOGRSPHIEX) 


Micromos L’avance technologique 
Carte mémoire 256 Ko pour 
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Etudiants lycéens, lisez 


Lycéens, étudiants, enseignants, parents : l’équipe de la revue 
L'ORDINATEUR INDIVIDUEL publie un numéro spécial 
hors-série qui fait le point sur l’ordinateur à l’école. 

e Un ordinateur dans une classe ? 

° Comment l’enseignement peut-il être facilité parun 
ordinateur individuel ? 

e À partir de quel âge peut-on découvrir l'informatique ? 

e Quelle aide un ordinateur familial apporte-t-il sur le plan 
éducatif ? 

° Comment créer et gérer un club d'informatique individuelle 
dans un établissement scolaire ou universitaire ? 

Toutes les réponses à ces questions (et à d’autres!) figurent 
dans ce dossier indispensable réalisé à partir d’une synthèse 
des meilleurs articles parus dans 
L'ORDINATEUR INDIVIDUEL. 

En 1983, il n’est plus raisonnable d'ignorer le formidable outil 
qu’est l'ordinateur. Pour être mieux informé sur ce domaine, 
lisez L'ORDINATEUR ET L'ÉCOLE. 


RL 
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Graphique, quand tu nous tiens. 


On peut reprocher aujourd'hui à 
l'Apple Il un écran graphique man- 
quant de finesse : la nouvelle géné- 
ration de micro-ordinateurs exprime 
souvent ses aptitudes graphiques en 
centaines de milliers de points, par 
exemple 800 x 400, plutét qu’en 
dizaines de milliers : 280 x 192. 
N'oublions quand même pas qu'il y 
a seulement trois ans l'Apple Il était 
le phénix des hôtes de ces vergers, 
car. à ce prix, les possibilités graphi- 
ques étaient rares. 

L’Apple IT garde une caractéristique 
particulière attrayante, celle de la 
double page graphique. Pour peu 
que lon possède une imprimante 
capable d’en tirer le meilleur parti, 
nous voilà bien armés. C’est le cas 
avec JEPSON MX FT munie de 
l’interface graphique EPSON pour 
Apple Il. 


Quelles sont les possibilités offertes ? 


D'abord, celles qu'offrent la plupart 
des imprimantes graphiques moder- 
nes : 

— noir sur blanc ou blanc sur noir 
— simple ou double dimension 

et ceci, bien entendu, en utilisant la 
page graphique 1 ou 2 au choix. 


Ensuite, et c’est la grande originalité, 
des combinaisons en une même 
impression du contenu des deux 
pages. 

— impression côte à côte du con- 
tenu de chacune des deux pages 
(ex. 1} ; 

— opération logique « ET » (produit 
logique) donnant l'impression des 
points communs aux graphes des 
deux pages, et de ceux-là seulement 
(ex. 2) ; 

— opération logique « OÙ inclusif » 
(somme logique) donnant l'impres- 
sion de tous les points figurant sur au 
moins l’un des deux graphes 
(ex. 3) ; 

— opération logique « OÙ exclusif » 
(différence symétrique} donnant 
limpression de tous les points qui 
figurent sur l’un des deux graphes, et 
pas sur l’autre (ex. 4). 

Ces opérations sont bien sûr compa- 
tibles avec les précédentes. 

Il existe également une possibilité de 
n’éditer qu’une fraction de graphe, 
désignée par sa position sur l'écran, 
en référence aux lignes et colonnes 
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de même emplacement dans le 
mode texte. 


Le programme ci-après permet 
exploitation par un questionnaire 
en séquence de ces diverses possibi- 
lités (à l'exception de la dernière 
citée). Il permet aussi : 

— de visualiser le ou les graphes 
choisis, de permuter les deux pages, 
de revenir au menu; 

— de choisir entre l'impression de 
graphes déjà existants en machine (il 
peut alors être utilisé en sous- 
programme d’un programme gra- 
phique) et la recherche sur disques 
de graphes préenregistrés. 


Mais tout ceci n'est-il pas un jeu de 
l'esprit ? Pour nous convaincre du 
contraire, nous allons examiner 
quelques cas d'application. 


Graphe double dimension 
Cette formule est idéale pour créer : 
° des pages de titres, 
° des transparents 
projecteur. 


pour rétro- 


Intersection de deux 
graphes 

Permet par exemple de détecter 
immédiatement les points communs 
à deux schémas de circulation afin 
de détecter d'éventuels «points 
noirs» (ex. 5). 


Union des deux graphes 
Permet d'utiliser «un fond de plan» 
et d'y placer, successivement, divers 
tracés. Par exemple, une carte sur 
laquelle on trouvera les villes. puis 
les richesses minières, etc. 


Différence 
de deux graphes : 


Permet de repérer immédiatement 
les modifications apportées à un gra- 
phe entre deux versions successives 
(ex. 6) 

L'imagination des «dingues du gra- 
phe » étant sans limites, bien d'autres 
applications peuvent être trouvées. Il 
est même probable que d’autres 
imprimantes offrent ou offriront des 
possibilités du même ordre. 


N.B. L'Apple Ile, et autres nouveautés 
Apple, censerverent-ils cette deuble 
page graphique ? 


Guy Mathieu 


Programme 


et commentaires 

1 à 900 : paramètres d'’initialisation 
et tracés - tests sur pages 1 et 2. 
200 : affichage des pages graphi- 
ques. 

5 000 : déroulement du questionne- 
ment. 

6 000 : mise en route de l’impres- 
sion. 

10 000 : recherche de graphes sur 
disques. 

30 000 : sous-programme d'attente. 


Mode d'emploi 

N'oubliez pas que la carte graphique 
Epson est telle que deux graphes 
sont toujours tracés côte à côte en 
format normal. Ces deux graphes, 
différents dans le cas de notre option 
COTE A COTE, sont identiques 
dans tous les autres cas. 

Le graphique de la page 18 illustre la 
séquence des questions posées par 
le programme à l'utilisateur. 
Remarque : si l’en répend 1 (COTE A 
COTE) à la troisième question, il faudra 
ultérieurement penser à placer les gra- 
phes dans le deux pages pour qu'ils se 
présentent dans l'ordre convenable à 
l'édition 


Exemple d'utilisation 

Nous cherchons à imprimer côte à 
côte deux graphes sauvés sur une 
disquette sous les nom CHATS let 
CHATS 2. Il faut exécuter le pro- 
gramme puis placer la disquette 
dans le lecteur et suivre la séquence 
suivante : 


Question Réponse Choix 
1 3 Les deux pages 
2 1 Normal 
3 1 Côte à cête 
4 N Pas en mémeire 


Ensuite, choisir l'option CATALO- 
GUE, amener face à CHATS 1 et 
faire RETURN. Venir après 
CHATS 1 et faire RETURN pour le 
changement. Suivre la même 
séquence pour CHATS 2. Enfin, 
dans le menu, choisir 1 (vérification 
de la page 1), puis 2 (page 2), ESC 
(retour) et enfin RETURN (impres- 
sion). 


D 
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Exemple 1 — Page 2. 


Exemple i -— Page 1. 


( 


N 


( 
: 


LLÉSSS 
LL LAS 





ÉLLLSSSS 


Exemple 3 — Page : “OU (inclusif}” page 2. 


Exemple 2 — Page 1 “ET” 2. 








Exemple 4 — Page 1 “OU (exclusif) page 2. 
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Exemple 5 : 
Sécurité Incendie 






Bat iment M 






























Batiment B 


Page 1 — Sécurité Incendie. 
Plan d'évacuation des agents. 






droits, courbes. histogrammes, axes, grifles, titres, annots- 
tions, cercles, rectangles, flèches, etc … 


Traceurs au format A3 et A4 


Batiment A 
Votre APPLE || sait aussi dessiner sur un traceur de courbes, 
mais encore lui faut-il un logiciel puissant pour faciliter 
votre travail. 
Notre logiciel. utilisable en Basic, vous permet de composer 
facilement vos graphiques comme sur un traceur de haut de 
Batiment 8 
HOUSTON 
STROBE 


< gamme. 
Avec une programmation de quelques lignes, nos sous-pro- 
grammes tracer ont pOur VOUS : 
Page 2 - Sécurité Incendie. BRYANS 
Circulation des véhicules de secours. CALCOMP 
Ensemble Traceur et logiciel à partir de 10.000 F H.T. 
Batiment À 


ORMATIQUE 
OSITION 





Bat iment B 


Page 1 “ET” Page 2 — Sécurité Incendie. 


Identification des “points noirs”. MINIGRAPHE 
MICROINFORMATIQUE 


263, Boulevard Jean-Jaurès, 92100 Boulogne 
Tél. 608.44,31 
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HART 


Question 1 Question 2 Question 3 Question 4 Menu 









Format normal 1 Examen de 
l 1 
1 — Page 1 Hi 
Normal Format double 
Dessin 
Fen mémoire anne) de 
2 — Page 2. 
ET A Catalogue 
Côte à côte et choix 1 ‘ESC: 
| Dessin non Menu 
en mémeire | 
inverse - Intersection l | 
Setes Lg si 2 pages ‘RETURN: : 
Impression 
- Union 
Retour à la 
Différence question 4 


Graphe du mode d'emploi 


Une informatique de gestion adaptée aux besoins des gestionnaires et réalisée par des gestionnaires. 





ETUDIE e opportunité d'utilisation de l’outil micro-informatique 
e intégration entre informatique traditionnelle et personnelle 
e politique de la communication dans l’entreprise 


FORME e formation à l’utilisation de la micro-informatique 
REALISE e réalisation de programmes à la demande 


LIVRE e livraison de systèmes clés en main, avec des progiciels de 
GESTION DE STOCK, PAYE, COMPTABILITE. 


Nous sommes gestionnaires avant d'être informaticiens. L'informatique doit s'adapter à homme. et non l'inverse. 
L'outil micro-informatique répond particulièrement bien à ce souci de qualité et d'efficacité du travail, 
dans des conditions conviviales. 
Nombreuses références en informatique traditionnelle - divers matériels - et en informatique individuelle - principalement 
Apple - auprès des PME et des groupes industriels 


l ogma sa. Centre La Chêtaigneraie - 29, avenue de Versailles - 78170 La-Celle-St-Cloud - Tél. : (3) 91813.07 





7 Are me 
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Exemple 6 : les petits chats. 





ë # 


S à 








Page À — Situation de départ. 





Page 2 — Situation d'arrivée. 


8ë 
88 
88 


SOMME logique : Ceux qui ont bougé entre let 2. 


1 


LOMEM: 25088 


2 TEXT 
3 HOME 
S DD = PEEK (48185: IF DD = @ OR DD > 
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2 THEN DD = 1 


D = CHRS (4):6$ = CHR (72:88 = C 


HR$ (17) :ZERO$ = CHRS# (6) 

HGR : HCOLOR= 3 

FOR I = @ TO 88 STEP 10 

HPLOT 1,1 TO 1,198 - I TO 278 - 1,19 
à - 1 TO 278 — 1,2 TO Ii 

NEXT 

FOR 1 = - 18 TO 18: HPLOT 139 + 1,8 
S TO 139 + 1,105: NEXT 

HGR2 : HCOLOR= 3: HPLOT 86,8 TO 8,198 
TO 278,198 TO 278,8 TO 6,8 

FOR 1 = @ TO 80 STEP 18 

HPLOT 139,1 TO 1,95 TO 139,198 - IT 
O 278 - 1,95 TO 139,1 


NEXT 
FOR 1 = — 18 TO 18: HPLOT 139 + 1,8 
9 TO 139 + 1,185: NEXT 

GOTO 5688 
REM PERMUT. PAGES 
POKE -— 163804,0 
IF PAGE — i THEN POKE — 16380,8 
1F PAGE = 2 THEN POKE - 16299,8 
RETURN 


REM MENU PRINCIPAL 

TEXT : HOME 

UTAB 1: PRINT "I1CERE PAGE) -— 2(CEME 
PAGE) - 3(LES DEUX) REPONDEZ PAR 
1,2 OÙ 3 S.U,P. ?; 

GET 2$ 


P = VAL (2%): IF P € 1 OR P > 3 TH 
EN PRINT G$: GOTO 5818 
PRINT 
UTAB 4: PRINT “1 (NORMAL) = 2 CINV 
ERSE) REPONDEZ PAR 
1 OÙ 2 S.U.P. “; 
GET 2$ 


1 = VAL (2$): IF 1 < 1 OR 1 > 2 TH 
EN PRINT G$: GOTO 5188 
I = (1 — 1) .#% 32 


PRINT 
IF F < 3 THEN 53688 
VTAB 7: PRINT "1 (COTE À COTE) -— 2 
CINTERSECTION) -— 3 CUNION) - 
4 (DIFFERENCE) REPOt 


DEZ PAR 1, 2, 3 OÙ 4 S,U.P. *; 
GET 2$ 
L = VAL (2%): IF L < 1 OR L > 4 TH 
EN PRINT G6$: GOTO 5218 
L' = € - 132 *X 4: IF L = 12 THEN L = 
lé 
PRINT 
1F P = 3 AND L = 6 THEN 5468 
UTAB 11: PRINT "1 (FORMAT NORMAL) 
— 2 (FORMAT DOUBLE) REPONDEZ PA 
R ji OU2 S.V.P. *; 
GET 2$ 
D = VAL (2%): IF D © 1 OR D > 2 TH 
EN PRINT G$: GOTO 5310 
D = {D - 1) X 64 
PRINT 
COEFF = P + L + 1 + D 


9908 VTAB 15 


IF P < 3 THEN PRINT LE DESSIN ES 
T-IL DEJA EN MEMOIRE?* 


5512 IF P = 3 THEN PRINT LES DESSINS 


SONT-ILS DEJA EN MEMOIRE?" 





Lee 
Le 
a 


a 


SEE 


[l 
ch 


HAE 
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5515 PRINT °REPONDEZ PAR O0 OÙ N S.U 
.P- ‘";$ 

5528 GET 2$ 

5538 IF 2$ < > “0° AND 2$ © > "N°" THE 
N PRINT G$: GOTO 5588 

5548 PRINT 

5558 IF 2$ = 0" THEN 5688 

5568 GOSUB 188688 

5578 PRINT D$"BLOAD" ;22%;°,4$2888° 

5575 IF P < 3 THEN 5688 

5588 GOSUB 18886 

5598 PRINT D$"8LOAD* ;22$;°,49%40888" 

5688 HOME : PRINT "VOUS DISPOSEZ MAINTE 
NANT DES COMMNDES SUIVANTES: ° 

5618 PRINT : PRINT “1 OÙ 2 POUR FAIR 
E APPARRITRE SUR L’ EC 
RAN UNE DES 2 PAGES" 

5628 PRINT : PRINT “’ESCAPE’ POUR PASS 
ER DU MODE GRAPHIQUE AU 
MODE TEXTE (MENU) * 

5638 PRINT : PRINT ° ‘RETURN’ POUR LANC 
ER L'’IMPRESSION" 

5648 PRINT : PRINT “8 POUR CHAN 
GER EVENTUELLEMENT LE 

(OU LES) GRAPHE(S) "* 

5658 PRINT : PRINT : PRINT "UOTRE CHOIX 
? 52: GET 2$ 

5668 HOME 

5788 PRINT 
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revuag ,litmibni sitit 6 2#on0b ia 
.2IvAa5ty axes e3itthoz 9114 
Loue] 


95738 
5748 


95758 


5768 
5778 
68688 
6818 
68 12 
6815 
66828 
66838 
6858 


6868 


6878 
6888 


6878 
6188 
18888 
18848 
18858 


18855 
18868 
18865 


188768 
18888 


18878 
18875 
18188 


19 158 
18268 
18468 


18418 


18426 
18588 
18688 
38888 
368818 
38838 


38848 
36858 


36868 
36878 
368 188 


13 THEN 6688 


IF ASC (Z$) = 
= 27 THEN TEXT : 


IF ASC (2$) = 
E : GOTO 5608 

PAGE VAL (2%): IF PAGE = 
GE 2 THEN GOSUB 288: 
IF PAGE = 6 THEN 5568 
PRINT 68%: GOTO 5688 

REM COMMANDE IMPRIMANTE 
PRINT DS$"PR#1° 

PRINT 2ERC$ 

POKE 1913,COEFF 

PRINT @Q$ 

PRINT D$°PR#@" 

TEXT : HOME : PRINT "VOULEZ-VOUS U 
NE AUTRE IMPRESSION ? * 


HOM 


1 OR PA 
GOTO 5668 


PRINT : PRINT “CREPONSE PAR O OU 
N S.V.P.) “; 

GET 2% 
IF 2$ = "N° THEN UTAB 18: HTAB 18 
: PRINT "AU REVOIR": END 
IF 2$ = °O0" THEN 5808 
PRINT G$: GOTO 6858 

REM CATALOG 

HOME : PRINT D$"CATALOG,D" ;DD 
UTAS 1: PRINT "FLECHES -> <- POU 


R DEPLACER LE CURSEUR JUSQU’AU NO 
M VOULU PUIS ‘RETURN’ (OU 


RETURN’ SI LE NOM N’EST PAS AFFI 
CHE" 
WW = 3:HH = 7: VTAB WW: HTAB HH 
GET 2$:2 = ASC (2$) 
IF Z = 13 AND WW € 4 THEN HOME : 
PRINT "VOUS POUVEZ MAINTENANT CH 
ANGER DE DISQUE": GOSUB 38888: 60 
T6 1868688 
IF Z = 8 THEN W = WW - 1: IF WW 
< 3 THEN W = 3 
IF 2 = 21 THEN W = WW # 1: IF (W 
> 23 THEN W = 23 
IF Z = 13 THEN 18468 
UTAB WW: HTAB HH 
IF 2 < 3 13 ADZ< > 8 AD2Z< 


> 21 THEN PRINT G$ 
UTAB W: HTAB HH 


GOTO 18868 
UTAB 1: HTAB 1: PRINT "AVANCER 
EC LA FLECHE -»> JUSQU'À DEPAS-SER 
LE NOM 
L] 
INVERSE : VUTAB 3: PRINT * PUIS ‘R 
ETURN’ “3: NORMAL : PRINT * 
VTAB W: HTAB HH 
INPUT 22$ 
RETURN 
REM ATTENTE 
POKE -— 16368,8 
VTAB 24: HTAB 5: INVERSE : PRINT 
"BARRE D’ESPACEMENT POUR LA SUITE 
CR] 
; 
NORMAL 
IF PEEK € —- 16384) < = 127 THEN 
30858 
POKE - 16368,0 
PRINT 
RETURN 
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Le programme GRAPHLOG est 
une illustration de l’article de Guy 
Mathieu : c’est un petit programme 
assembleur très simple, relogeable 
(c'est la mode dans ce numéro de 
Pom's!) écrit avec l’assembleur 
LISA 2.5. Il réalise une opération 
logique bit par bit sur deux pages 
graphiques et met le résultat dans 
une troisième. Par page graphique, 
nous entendons ici les intervalles 
$2000.3FFF, $4000O.S5FFF et 
$6000.7FFF, étant entendu que 
seuls les deux prerniers intervalles 
correspondent à des pages graphi- 
ques vidéo ; pour voir la dernière, il 
faudra faire 2000 < 6000.7FFFM ou 
4000 < 6000.7FFFM en mode 
moniteur. L'opération logique cor- 
respond au type graphique de Pas- 
cal, repris aussi par HAÏFA dans 
Pom's 5. Si À et B désignent les 
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Graphiques et logique 


points des pages sur lesquelles se 
réalise l'opération et C le résultat à 
mettre dans une troisième page (0 
= éteint, 1 = allumé), on obtient : 


TYPE VALEUR DE C 
0 0 
1 A NOR B 
2 A AND NOT B 
3 NOT B 
4 NOT A AND B 
® NOT A 
6 A EORB 
# A NAND B 
8 À AND B 
9 A =B 
10 A 
11 A OR NOT B 
12 B 
13 NOT A OR B 
14 AORB 
15 1 


négatif de la page HGR, 8e bits compris 
AND des pages HGR et HGR2 avec résultat en HGR2 et 8 bits mis à O 
OR de HGR2 et HGR : résultat dans la page “invisible” avec EOR des &e bits 


Olivier Herz 


€e TYPE s'applique aux bits des 
points de l'écran. En ce qui concerne 
les bits de couleur (le 8: bit des octets 
de l'écran), on applique un autre 
type (TYPCOL}. Pour se servir de la 
routine, il suffit de POKEr aux adres- 
ses 7 à 9 les numéros des pages gra- 
phiques (à savoir 32, 64 ou 96 : il 
est très dangereux de POKEr autre 
chose) et en 24 et 25 TYPE et 
TYPCOL respectivement, puis de 
faire un CALL à l'adresse où l’on a 
chargé cette routine relogeable. 


En effectuant une copie d'écran gra- 
phique à partir des écrans ainsi 
engendrés, il vous est maintenant 
possible de faire tout ce que Guy 
Mathieu proposait aux possesseurs 
d'Epson. 


Graphlog — Lisa 2.5 23 EM EP? 
24 MEM3  EPZ $FF 
I LST % ; 
2 ; 26 DRG 5880 3PROGRAE RELOGEABLE 
3 6600000000008866886666666688 27 BJ 5880 
4 :X x 2 ; 
S ;X CE PROGRAYE REALISE UNE X 29 UR #191 
6 ;X OPERATION LOGIQUE SUR LES X z STA LIGE 
7 3x OCTETS DES DEUX PAGES X 31 8CELI6 PH 3LIGES 31 À 47: 
8 3;X GRAPHIQUES ET MET LE RE- X 32 AO 6509 3 VOIR APPLESOFT 
9 ;X SULTAT DANS UNE 30€. x 33 STA BASE 3-ROUTINE EN $F417 
18 3x x #4 LSR 
11 5% (©) O. HERZ POUR PON'S 7 X S LSR 
12 5% x 36 ORA BASE 
13 56888000000000666606660000008% 37 STA BASE 
14 ; 3 PLA 
15 LIGNE  EP2 $6 iLIGNE DE L'ECRAN 39 STA BASE +] 
16 PAGEI  EP2 $7 JPRONLERE PAGE #4 ASL 
17 PAGE2  EPZ $8 DEUXIEXÆ PAGE ai AL 
18 PAGE3  EPZ $9 PAGE OÙ RESULTAT 42 ASE 
19 TYPE EP2 $18 3 TYPE POUR LES POINTS 43 ROL BASE +1 
28 TYPCUL  EP2 $19 3 TYPE POUR LE BIT DE CREUR 44 ASL 
21 BASE  EPZ $iE ADRESSE DE LA PREMIERE LIGNE & ROL BASE +1 
22 NEHI EP2 $fD 46 ASL 





DHRITPA EN PES EITETÉ TENTE 
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22 


47 ROR BASE 

48 LDY 439 

49 GCLECGI. LDA BASE+j 
50 A0 1F 

S] ORA PAGE 1 
52 STA BASE +1 
53 LDA (BASE) ,Y 
# STA HEHI 

55 LDA BASE+ 1 
56 AND 81F 

57 ORA PAGE2 
58 STA BASE+1 
59 LDA (BASE) ,Y 
68 STA HEM2 

61 LX #9 LIGNES 61 A 81: 
62 BCLETYP LDA #! :-VOIR HAÏFA 
63 ASL HÆHI ROUTINE DOPRINT 
64 BCC )8 

65 ASL 

66 At. 

67 *@ ASL HEM2 

68 BCC }1 

69 ASL 

28 “1 CPX 48 

71 BE }2 

72 AND TYPCOL 
73 CLC 

74 BEC }3 

25 *2 AN TPE 

76 OC 

7? *3 BEQ }4 

78 SEC 

79 *4 ROL 13 

89 DEX 

81 BE BCLETYP 
82 LDA BASE +1 


Hard Copy Seikosha 


Olivier Herz 


Afin de compléter l’article de Guy 
Mathieu et celui sur « Graphiques et 
logique », voici un petit programme 
en langage machine (écrit à mes 
débuts sur Apple) permettant d'obte- 
nir la copie d'écran graphique sur 
une imprimante Seikosha. 

Ne pessédant pas d'assembleur à 
l’époque, j'avais écrit ce programme 
directement en langage machine. Il 
reste toutefois intéressant à publier 
car il est assez rapide et, d'autre part. 
les possesseurs de Seikosha n'ont 
certainement pas tous un tel pro- 
gramme à leur disposition. 


La seule routine ROM utilisée est le 
WAIT $ECA8 ; le programme peut 
être utilisé par n'importe quel Appie. 


3PREPARATION DES ADRESSES 


SRSSNLSBSBGERLSES 


S 


En 


AND W$1F 
ORA PAGES 
STA BASE +1 
LDA #8 
STA (BASE), Y 
DEY 

BPL BCLECOL 
DEC LIGNE 


DCH "BSAVE GRAPHLOG, 998, L#89" 
END 


Récapitulation 
4990.871 


0898- A9 BF 85 06 48 29 CB 85 
0898- LE 44 44 05 LE 85 JE 48 
0818- 85 1F 6A 8A 6A 26 IF 6A 
0818- 24 1F 8A 46 1E A8 27 A5 
0828- 1F 29 1F 05 67 85 IF B1 
0828- 1E 85 FD A5 1F 29 IF 05 
0838- 08 85 1F B1 IE 85 FE A2 
0838- 8B 49 61 06 FD 90 02 6A 
6040- 6A 06 FE 90 81 8A E8 68 
6848- D9 05 25 19 18 90 03 25 
0858- 18 18 F@ 61 38 26 FF CA 
0858- DS DF A5 1F 29 1F 65 09 


0858- 85 JF AS FF 91 IE 88 18 
0868- B6 Cé 06 AS 06 C9 FF D$ 
0878- 93 6 
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ILIST 


OS REM XX*X*X HARD COPY SEIKOSHA xxx 


6 REM XX%x 


COPYLEFT XXX 


7 REM xxX*x OLIVIER HERZ —- POM'S xxx 


18 


TEXT : HOME : INVERSE : VUTAB 6: PRIN 
T "IMPRESSION DES 2 PAGES HAUTE R 
ESOLUT ION° : NORMAL 


28 PRINT : PRINT : PRINT : PRINT “VOULE 
Z-VOUS LA PAGE 1 OÙ 2 ? "; 
380 GET AS: IF AS < > "1" AND AS < > “ 
2" THEN 38 
480 PRINT ÀA$: POKE 28,20B: POKE 29,31 + 
32 x € ASC (AS) - 48) 
99 PRINT : PRINT “VOULEZ-VOUS LA PAGE E 
NTIERE ? ":; 
68 GET ÀA$: IF ÀA$ < > "O" AND AS < > " 
N°" THEN 68 
70 PRINT A$: POKE 24,8: IF À$ = "N° THE 
N POKE 24,4 
88 PRINT : PRINT “VOULEZ-VOUS L’IMPRESS 
ION EN NEGATIF ? “3: 
98 GET AS: IF À$S < > “O" AND A < > ” 
N° THEN 98 
188 PRINT ÀA$: POKE 25,8: IF À$ = "O" TH 
EN POKE 25,1 
118 PRINT : PRINT "VOULEZ-VOUS UN CADRE 
PR 
1280 GET AS: IF AS < > "O0" AND AS < 2 
"N" THEN 128 
1380 PRINT ÀA$: POKE 26,0: 1F À$ = "O0" TH 
EN POKE 26,1 
148 PRINT : PRINT “VOULEZ-VOUS LE FORMA 
T DOUBLE ? “:; 
150 GET AS: IF À < > “O" AND ÀS < 2 
°N° THEN 158 
168 PRINT À$: IF À$S = "OO" THEN 2688 
178 POKE 27,8: POKE 235,192: POKE 236,1 
29: IF PEEK (24) = @ THEN 198 
188 POKE 237,162: POKE 38,159: GOTO 238 
198 POKE 237,194: POKE 38,143: GOTO 238 
2868 POKE 27,1: POKE 235,224: POKE 236,1 
31: IF PEEK (24) = @ THEN 228 
218 POKE 237,69: POKE 30,78: GOTO 238 
2268 POKE 237,133: POKE 38,44 
238 PRINT : PRINT : HTAB 3: INVERSE : P 
RINT * APPUYEZ SUR LINE TOUCHE QUE 
LCONQUE *: NORMAL : WHAIT — 16384 
5128: POKE - 16368,8 
248 IF PEEK (6148) < > 1 THEN PRINT 
CHR$& (4) ;" BLOADSEIKO.0BJ" : POKE 
6148, 1 
258 POKE - 162480,8: HOME : CALL 4149 
268 CALL — 1852: CALL -— 1852: CALL - 
1852 
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x 1806. 


1888-— 
1888- 
1818-— 
1818- 
1828-— 
1828- 
1838- 
1838- 
1848- 
1848- 
1858- 
1858- 
1868- 
1868- 
1878- 
1878- 
1888- 
1888- 
1898- 
1898- 
18A8- 
184A8-— 
18B8- 
18B8- 
18C8- 
18C8- 
18D8- 
18D8- 
18E8- 
18E8- 
18F8- 
18F8- 
1988- 
1988- 
1918- 
1918- 
1928- 
1928- 
1938- 
1938- 
1948- 
1948- 
1958- 
1958- 
1968- 
1968- 
1978-— 
1978- 
1988- 
1988- 
1978- 
1998- 
1948- 
1948- 
1988- 
1988- 
19C8- 
19C8- 
1?9D8- 
1908- 


SEIKO.OBJ 
Code hexadécimal 


19DÀ 


EA EA 
85 A4 
85 86 
85 FB 
85 ec 
19 A9 
67 D6 
e8 28 
Fe 88 
69 28 
FE A9 
FD 8A 
FE 38 
AS 1D 
Bi F9 
85 FF 
98 62 
69 8B 
46 FF 
18 A9 
e2 69 
17 86 
FF 98 
62 49 
e7 A8 
A9 08 
83 4C 
cs 88 
07 A5 
20 18 
19 28 
19 20 
Cé 8A 
26 C9 
AS 1A 
19 68 
Eé FB 
Fe 86 
68 A5 
4 18 
28 A8 
98 ce 
A9 1B 
47 19 
IE 28 
19 AS 
47 19 
26 47 
98 28 
19 A8 
A8 FF 
85 0B 
ec A9 
AS FC 
FB 28 
47 19 
98 28 
c9 55 
19 A9 
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La souris de Lisa 


Hervé Thiriez 


Faut-il encore parler de Lisa ? Nous 
avons été abreuvés dans les jour- 
naux d'articles sur Lisa depuis sa 
présentation internationale le 19 jan- 
vier dernier. D'autre part, nous ne 
pouvons, dans une revue telle que 
Pom's, passer sous silence la nais- 
sance de Lisa. Voyons donc pour- 
quoi la souris de Lisa veut devenir 
aussi délèbre que le sourire de 
Mona... 

La première impression que dégage 
cet ordinateur de bureau — le terme 
convient ici parfaitement — est celle 
d'un équipement au design agréa- 
ble, d'apparence professionnelle. 
Par opposition, l'Apple Il Plus, qui 
fait notre bonheur depuis si long- 
temps, suggère un peu la 2CV, avec 
son aspect rustique et son côté 
bohème. 


Lisa est un système à clavier déta- 
ché, incorporant deux lecteurs de 





disquettes 5 pouces (860K octets 
par disquette) et un écran à très 
haute résolution (720 x 364, soit 
près de cinq fois autant de points 
que pour l'Apple Il). Une surprise 
désagréable, la seule d’ailleurs : il 
n'est pas question de travailler en 
couleur : tout le monde sait que les 
souris ne connaissent que le blanc et 
le gris. 


Seul appendice externe à l'appareil, 


relié par un fil gris lui aussi, la 
fameuse souris, qui est le mode de 
communication privilégié de l’utilisa- 
teur vers la machine. C’est grâce à 
cette souris et à la qualité graphique 
de l'écran qu'il suffit d’une demi- 
heure à un non-informaticien pour 
apprendre à utiliser Lisa. 


La souris est un petit boîtier que l’on 
fait glisser sur son bureau dans 
n'importe quelle direction. Un cur- 
seur sur l'écran est associé à la souris 
et se déplace en totale symbiose 
avec elle. L'écran présente un cer- 
tain nombre de petits dessins illus- 
trant les dossiers sur lesquels on tra- 
vaille, V compris une poubelle pour 
ceux dont on veut se débarrasser. 


Îl suffit de pointer le curseur associé 
à la souris sur le dessin correspon- 
dant au dossier que l’on désire 
« ouvrir », et de confirmer son choix 
en appuyant sur la petite barre de la 


souris. Le dossier s'ouvre alors, et 
on y choisit (toujours grâce à la sou- 
ris) tel ou tel élément. 


Différents dossiers peuvent être 
ouverts simultanément, comme sur 
un bureau normal. On peut agrandir 
ou réduire les documents sur l'écran 
à volonté, ouvrir ou fermer tout dos- 
sier, passer du traitement detexte au 
Lisacalc ou au programme de réali- 
sation de graphiques. Tout cela se 





fait très rapidement, et l’on peut ainsi 
croiser les applications : éditer en 
“traitement de texte les titres de gra- 
phiques provenant de données Lisa- 
calc ! 


À tout moment, une copie de l'écran 
peut être obtenue, l'écran incorpo- 
rant à loisir des textes (en plusieurs 
polices et tailles) et des graphiques. 


Le souci de simuler la gestion d’un 
bureau va très loin : on peut ainsi 
faire apparaître sur l'écran une calcu- 
latrice avec des touches sur lesquel- 
les on « appuie » grâce à la souris. 


Avec Lisa sont fournis en standard : 

e LisaWrite : traitement de texte 
(tailles et polices variées). 

e Lisacalc : 255 lignes, et 255 
colonnes de largeur variable. 

e Lisalist, base de données pouvant 
contenir 6000 enregistrements de 
100 caractères chacun. 

e LisaGraph, soit Visiplot en beau- 
coup plus rapide, et avecles possi- 
bilités d'édition de texte. 

e LisaDraw, outil performant pour la 
création graphique. 

e LisaProject, pour la gestion de 
projets (PERT, Gantt) jusqu’â 
1000 tâches. 


Tout cela coexiste sans effort dansle 
million d'octets de mémoire cen- 
trale, le microprocesseur MC68000 
assurant une rapidité de traitement 
inégalée en micro-informatique. 


Seul petit problème : tout le monde 
n’a pas le budget de 120 000 francs 
TTC nécessaire pour avoir le 
système complet, avec son impri- 
mante et le disque dur de 5 méga- 
octets. En outre, ceux qui désirent 
s'offrir Lisa devront encore patienter 
jusqu’en septembre. Le prix n'est 
pas donné, mais le rapport perfor- 
mance/prix est excellent en compa- 
raison avec celui des mini- 
ordinateurs de bas de gamme. 


Nous attendons aussi le discret 
Mclntosh qui, à en croire ce que j'ai 
lu dans des revues professionnelles, 
devrait proposer à un prix sensible- 
ment plus abordable les avantages 
logiciels de Lisa et de sa souris, avec 
une puissance et une capacité rédui- 
tes. 


Dès que nous aurons eu l’occasion 
de travailler réellement avec Lisa ou 
Mcintosh, nous vous ferons partager 
nos impressions plus en détail. 
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L’Apple ile (e pour «senhanced», 
c'est-à-dire amélioré) a été annoncé 
par Apple le 19 janvier dernier. Des- 
tiné à remplacer le modèle Apple ll+ 
bien connu, ilcommence à se répan- 
dre dans les boutiques micro- 
informatiques. Grâce à l’amabilité de 
la société L.E.F., j'ai pu en avoir un 
exemplaire pendant une soirée, de 
quoi l’examiner sous toutes ses cou- 
tures. 


Première constatation : si le nom 
change, la ligne demeure : le boîtier 
est celui que nous connaissons tous. 
Seul le nom a changé pour s'adapter 
au nouveau logo. Cependant, pour 
l’Apple-o-mane averti, pas de risque 
de se tromper pour autant : le Ije 
dispose d’un clavier plus complet qui 
se remarque dès le premier abord. 


Un clavier plus complet 


Outre ses il touches de plus {63 
contre 52), le clavier du Ije présente 
de nombreuses différences avec 
celui du If. Nous en commentons ci- 
dessous les plus notables. 


La touche RESET est mise à l’écart 
du reste du clavier afin d'éviter les 
fausses manipulations. De plus, le 
RESET n'est pris en compte que 
lorsque la touche CTRL est enfon- 
cée {il ny a plus la possibilité de 
choix offerte sur le Il entre RESET 
tout seul et la double action CTRL- 
RESET). 


Les minuscules sont disponibles au 
clavier et affichées comme telies à 
l'écran. En fait, tous les codes Ascii 
sont générables au clavier. 


Une touche «Shift-lock» permet le 
blocage du clavier en majuscules. 
C'était nécessaire pour la program- 
mation en Basic (l’Applesoft, 
comme le DOS, n'accepte que les 
majuscules). Un bon point : le blo- 
cage majuscule/minuscule n’affecte 
que les touches alphabétiques. 
Appuyer sur « 1» donne toujours le 
« 1», quelle que soit la position de la 
touche Shift-lock. 


Quatre touches de’gestion du cur- 
seur sont rassemblées en bas à droite 
du clavier. On y retrouve bien sûr les 
classiques flèches à droite et à gau- 
che, mais également les flèches vers 
le haut et vers le bas. 
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L’Apple Ile à l’essai 


Toutes jes touches qui génèrent un 
code sont à répétition automatique. 
Le temps entre le premier caractère 
et le deuxième est relativement long, 
ce qui évitera, je pense, toute fausse 
manœuvre. En raison de cette répé- 
tition automatique, il n'y a plus de 
touche REPT (répétition). 

Deux touches marquées l'une d’une 
petite pomme vide (pomme 
«“ouverte»), l’autre d’une pomme 
pleine (pomme «fermée») sont pla- 
cées de part et d'autre de la barre 
d'espacement. Elles ne génèrent 
aucun code (elles sont en fait équi- 
valentes aux boutons sur les poi- 
gnées de jeux), mais ont quelques 
fonctions particulières quand elles 


sont enfoncées en même temps que 
CTRL-RESET : 


e la pomme ouverte force l'Apple à 
redémarrer {et donc à rebooter s’il 
y à un contrôleur) quelle que soit 
là configuration. Cela devrait per- 
mettre d'épargner considérable- 
ment le bouton de l'alimentation 
qui, l'expérience le montre, sup- 
porte très mal les opérations de 
«marche/arrét» répétitives. 


la pomme fermée provoque l'exé- 
cution d’un autotest. 


Parmi les nouvelles touches, on 
trouve également une touche de 
tabulation «TAB» et une touche 
«DELETE» qui pourront être utili- 
sées par les logiciels prévus pour le 
Ile. 


Le clavier est utilisable en Azerty ou 
en Quwerty. La sélection est faite par 
un bouton poussoir judicieusement 
placé sous la partie inclinée de 
l'Apple. Ce bouton commande éga- 
lement le changement de caractères 
à l'écran. Les caractères français 
sont donc disponibles aussi bien au 
clavier qu’à l'écran. Malheureuse- 
ment, la disponibilité d’un double 
clavier se solde par un double mar- 
quage des touches, qui vont donc 
jusqu'à abriter 4 signes différents sur 
leur cabochon ! En langage non 
informatique, cela s'appelle un 
casse-tête chinois, et taper plus de 
dix touches sans erreur relève de 
l'exploit. Il ne semble pas qu'il existe 
pour le moment la possibilité d’un 
marquage unique (Qwerty par 
exemple). 


Jean-François Duvivier 


Comme pour le if, un connecteurest 
toujours prévu pour le clavier numé- 
rique séparé. 


Certaines publicités ont fait état de 
touches de fonction programmables. 
La seule documentation que j'avais 
en ma possession (Manuel de Réfé- 
rence lie) n’y faisait pas allusion. De 
même, le programme de démons- 
tration et d'introduction au clavier ne 
mentionne aucune possibilité de tou- 
ches de fonctions. 


Outre le problème de double nota- 
tion des touches, j'ai un deuxième 
regret concernant le clavier : 
l'absence de buffer. La refonte du 
clavier était l’occasion rêvée d’intro- 
duire un buffer de caractères tel 
qu'on le trouve sur l'Apple Ji et 
même sur le Il {avec la carte Key- 
board Enhancer de Videx par exem- 
ple). Le buffer est comme toutes les 
bonnes choses : une fois qu’on y a 
goûté, on ne peut plus s’en passer ! 


Par rapport à l'Apple Il, ces connec- 
teurs ont les mêmes signaux disponi- 
bles sur leurs broches, ce eui signifie 
que la majorité des cartes d’exten- 
sion existant sur le Il sont compati- 
bles, notamment les contrôleurs de 
lecteurs de disquettes, les interfaces 
imprimantes et la Softcard Z80. Les 
exceptions sont les cartes qui 
devaient obligatoirement se mettre 
dans le slot O (ROMcard Applesoft 
ou Integer par exemple) et toutes les 
cartes nécessitant d’ôter un circuit de 
PApple pour connecter un câble à sa 
place (cas de certaines cartes RAM 
16,32,64 et 128K ou de cartes 80 


colonnes). 


La nouveauté vient d'un connecteur 
supplémentaire situé en plein milieu 
de la carte et dénommé «Connec- 
teur Auxiliaire» (quelle imagina- 
tion !}. Ce nouveau connecteur 
comprend 60 contacts (contre 50 
aux connecteurs de slot) Son 
emplacement (dans le prolongement 
du slot 3) interdit son usage simul- 
tané avec le slot 3. ]l est prévu spé- 
cialement pour les extensions 
mémoire et pour l'extension 80 
colonnes (de nombreux logiciels 
imposent l’utilisation du slot 3 pour 
les cartes 80 colonnes pour Apple Il, 
ce qui explique la position du con- 
necteur auxiliaire). 
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Trois cartes actuellement disponibles 
en France utilisent ce connecteur : 
e une carte 80 colonnes ; 

e une carte 80 colonnes doublée 
d'une extension mémoire de 
64K ;; 

e une carte RVB Chat Mauve per- 
mettant l'obtention des couleurs 
sur un poste téléviseur SECAM, 
ainsi que l'extension 64K et 80 
colonnes. 


Le microprocesseur 6502 ne pou- 
vant pas adresser plus de 64K, 
l'extension de 64K n'est pas une 
extension de mémoire centrale à 
proprement parler. Mais elle est 
comparable aux cartes mémoires 
disponibles pour le Il (Saturn, 
Ramex, Legend...). Comme elle est 
proposée par Apple et constitue de 
ce fait un standard, de nombreux 
logiciels vont pouvoir en faire usage. 


Selon certains renseignements que 
je n’ai malheureusement pas pu véri- 
fier, l’adjonction de l'extension 64K 
permettrait de plus de disposer d’un 
graphisme haute résolution plus 
complet : 560 x 192. 


Sous le capot 


La carte mère a été totalement 
refaite : légèrement plus petite, elle 
s'arrête avant le clavier, ce qui per- 
met d'accéder à tous les circuits sans 
démonter autre chose que le capot. 
Le nombre de circuits intégrés est 
passé d'environ 90 à 35 Cette 
réduction permet d'espérer bien 
entendu une fiabilité accrue. Elle 
s'accompagne également d’une 
réduction de la consommation de la 
carte mère. L'alimentation étant res- 
tée la même, on dispose ainsi de 
plus de puissance sur les slots. 


Le gain de circuits est essentielle- 
ment dû à l'intégration de plus en 
plus poussée des composants utili- 
sés. Par exemple, les mémoires 
vives RAM utilisées sont des 64 Kbits 
au lieu de 16, ce qui permet de faire 
64 Koctets avec seulement huit cir- 
cuits. De même, les mémoires mor- 
tes utilisées sont des 32 Kbits au lieu 
de 16. Enfin, deux circuits à 40 pat- 
tes trônent en plein milieu de la 
carte. Dénommés MMU (Memory 
Management Unit) et IOÙ (Input 
Output Unit), ils ont été réalisés spé- 
cialement pour Apple (il coulera de 
nombreux bits dans votre Apple 
avant que vous ne puissiez acheter 
un le made in Taiwan |!!!) 


L'utilisation de mémoires repro- 
grammables pour le codage clavier 


et pour la génération vidéo des 
caractères permet une très grande 
souplesse. Chaque pays a sa version 
nationale du {le, disposant en plus 
du Quwerty, d’un clavier équipé des 
caractères spécifiques à la langue, et 
de leur génération à l’écran. 


En ce qui concerne la génération 
video, il faut préciser que les lle ven- 
dus en France sont équipés en stan- 
dard d'un modulateur PAL sélecta- 
ble par switch (sur la carte mère). 
Les possesseurs de postes de télévi- 
sion bi— ou tristandards pourront 
donc profiter directement des cou- 
leurs, sans aucune carte supplémen- 
taire. Les autres devront se conten- 
ter du noir et blanc ou attendre l’arri- 
vée imminente d’une carte «Chat 
Mauvre » adaptée au lle (pour vous 
consoler, sachez que le standard 
SECAM est techniquement le meil- 
leur...). 


Trucs et astuces 
De l'utilité 
du symbole « : » 


] : READ permet de lire les 
DATA d'un programme (arrêté 
par CTRL-C, par exemple), alors 
que | READ donne k message 
NOT DIRECT COMMAND de ta 
commande READ du DOS. 


EIN#O : PR#O permet de 
déconneter de DOS. Pour le 
reconnecter : CALL 1002 ou 
*3D0G ou RESET. 


Parfois, ]PR#6 ne marche 
plus pour rebooter (quand par 
exemple la commande PR # du 
DOS a été endommagée). Pour 
s'en sortir sans devoir éteindre 
l'appareil, faire |]: PR#6 ou 
*6CTRL-P. 


Laraison de tout cela tient au fait 
que le DOS intercepte les com- 
mandes tapées en début de ligne 
au clavier. avant de redonner le 
contrôle à l'Applesoft (ou au 
moniteur). D'où des problèmes 
avec les commandes synonymes 
entre le DOS et Applesoft : 
PR#, IN # et READ. 


Ainsi, si l’on entre en mode direct 
A=3 : CATALOG, l'instruction 
CATALOG du DOS n'est pas 
reconnue. C'est comme cela 
que}: PR # 6 active le «PR# » de 
l'Applesoft (qui marche toujours, 
s'il est résident} et non celui du 
DOS, qui peut avoir été écrasé. 


Du côté des slots... 


Sept connecteurs (slots) numérotés 
de 1 à 7 sont disponibles. Il est à 
noter qu'il n'y a doncplus de slot O. 
L'explication en est simple : étant 
donné la présence sur la carte mère 
de 64 K de mémoire vive, le slot Q 
est considéré comme étant occupé 
par une carte langage 16 K. 


Petit détail intéressant : la présence 
à côté des slots d’un témoin de ten- 
sion (plus d’excuses pour les cartes 
mises ou enlevées avec l'Apple en 
marche !}. On note également le 
blindage complet de l'arrière de 
l'Apple, désormais en métal et soli- 
daire de la plaque du fond. Les 
grandes échancrures ont laissé la 
place à de multiples ouvertures pré- 
vues pour la fixation de connecteurs. 
Ceci devrait permettre de ne plus 
avoir à démonter l'Apple pour bran- 
cher le câble de l'imprimante ou de 
toute autre carte interface. Autre 
amélioration pour les fanas de jeux : 
un connecteur situé à côté de 
l'entrée cassette permet de brancher 
les manettes de jeux sans avoir à 
démonter le capot et surtout sans 
devoir se munir d’une loupe pour 
effectuer le branchement ! 


Les logiciels 


Quant à son utilisation, le Île se com- 
porte comme un Il équipé d’une 
carte langage. Le langage résident 
est le Basic Applesoft qui n'a pas 
bougé d'un iota. Les disquettes sont 
toujours au format DOS 3.3. En fait, 
il semble que les seules modifications 
« soft» effectuées concernent le 
moniteur (Prom F8), qui a été entiè- 
rement réécrit. Toutes les routines 
de gestion écran ont été modifiées 
pour prendre en compte la présence 
éventuelle d’une carte 80 colonnes. 
De même, les routines concernant le 
clavier autorisent l’utilisation des 
minuscules. Enfin, un autotest a été 
ajouté (activé par les touches CTRL- 
RESET-pomme fermée). Comme 
ces modifications ont nécessité plus 
de place mémoire, l’espace $C100- 
$C7FF auparavant dédié à l’adres- 
sage des slots est maintenant sélecta- 
ble entre les slots et une Prom. 


Malgré toutes ces modifications, les 
principaux points d'entrée du moni- 
teur ont été gardés aux mêmes 
adresses. Vous pourrez toujours, par 
exemple, passer en mode moniteur 
en tapant CALL-151. Ainsi, sur 
300 programmes commerciaux tes- 
tés sur Apple le, j'ai lu que 95 % 
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avaient tourné du premier coup et 
3 % après quelques légères modifi- 
cations. 


Pour ma part, tous les logiciels que 
j'ai essayés ont parfaitement tourné. 
ce qui est rassurant du point de vue 
compatibilité. 


Et le portefeuille. 


De même que pour l'Apple Il ces 
derniers mois, le Île sera essentielle- 
ment vendu sous forme d’une confi- 
guration comprenant un Île 64K, un 
contrôleur, un drive et un moniteur 
à écran jaune. Les cartes d'extension 
spécifiques au {le sont la carte Apple 
80 col., la carte 80 col. + 64 Ket la 
carte Chat Mauve. Il est à noter que, 
si cette dernière était disponibles par- 
tout, les deux autres étaient totale- 
ment inconnues à deux des cinq 
boutiques consultées. Les prix TTC 
que jindique ci-dessous résultent 
d’un sondage effectué par téléphone 
auprès de cinq boutiques parisien- 
nes : 


° configuration : 
de 14 700 à 14 995 F 


e Apple Ile seul : 
de 9 900 à 11950 F 


e carte 80 col. : 
de 900 à S999F 


e carte 80 + 64 K: 
de 2300à 2400F 


e carte « Chat Mauve » : 
environ 3 000 F 


On remarquera, en dehors du cas 


particulier de l'Apple !Je seul, que les 
prix varient très peu d’un revendeur 
à l'autre. résultat de l’uniformisation 
des prix imposée par Apple-Seedrin. 


Conclusion 


J'ai rencontré deux problèmes parti- 
culiers sur f'exemplaire qui ma été 
prêté: D'une part. la commande 
PR # suivie d'un numéro correspon- 
dant à un slot vide sélecte la pre- 
mière carte trouvée dans un slot 
supérieur. C’est ainsi qu'un PR # 4 
fait rebooter le disque, bien qu'il n’y 
ait aucune carte dans le slot 4 (le 
contrôleur étant en 6!]. D'autre 
part, il semble que l'Apple dont je 
disposais avait quelques difficultés à 
s'initialiser correctement après des 
coupures de tension brèves (infé- 
rieures à 2 secondes), ce qui m'arri- 
vait lorsque jutilisais l'interrupteur 
de l'alimentation pour faire rebooter 
l'Apple. 

En dehors de ces problèmes 
mineurs, il faut souligner l'excellente 
compatibilité du Île avec son prédé- 
cesseur le I1+, tant au niveau du 
matériel (jai essayé sans problème 
toutes mes cartes interfaces. V com- 
pris une extension 128K Saturn) que 
du logiciel. 

Cependant. je dois dire que cette 
première confrontation avec le [le 
m'a laissé un sentiment de décep- 
tion. Attendant avec impatience ce 
successeur de l'Apple II, je me suis 
retrouvé en face de la méme 
machine, mais incapable de taper 


trois touches de suite ! Cette impres- 
sion d'absence de nouveauté a été 
certainement accentuée par le fait 
que je dispose déjà des minuscules 
sur mon Apple IE D'autre part, je 
n'ai pas pu emprunter d’une carte 
extension 80 colonnes pour mon 
essai, ce qui ne ma pas permis 
d'apprécier le confort apporté parles 
80 colonnes. 


Autre déception : les prix. Compte 
tenu d’un abaissement vraisemblable 
des coûts de production (carte plus 
petite, nombre de circuits en 
baisse...), on pouvait rêver à des 
prix inférieurs à ceux du IL. Hélas. le 
Île affiche un bon 2 000 F de plus. 
Comme, d'autre part, le Il ne sera 
plus vendu, il s'ensuit une augmen- 
tation importante du système -mini- 
mum qui atteint maintenant les 
15 000 F. Si cette somme ne consti- 
tue pas un problème pour les utilisa- 
teurs professionnels (très majoritai- 
res il est vrai), elle devient fort diffi- 
cilke à réunir, en cette période de 
crise, par un utilisateur individuel qui 
préférera alors se reporter sur des 
machines plus accessibles. L’évolu- 
tion dans le domaine de la micro- 
informatique se traduit d'habitude 
par « plus puissant et moins cher ». 
f} semble que ce ne soit plus le cas 
désormais chez Apple. Dommage ! 


Ceci dit, l'Apple [le a pour avantages 
sa compatibilité et sa fiabilité plus 
grandes. Si l'on pouvait avoir une 
version Azerty simple (16 cabochons 
à changer), ce serait beaucoup 
mieux |! 





Des programmes relogeables 


Les programmes en langage 
machine dépendent en général de 
l'adresse à partir de laquelle ils ont 
été assemblés et ne peuvent de ce 
fait « fonctionner » que s'ils sontlan- 
cés à partir de cette adresse. Si nous 
voulons qu’un programme se char- 
geant en haut de la mémoire puisse 
fonctionner sans problème avec un 
Apple de 16, 32 ou 48 K, il nous 
faudrait normalement prévoir trois 
versions du même programme ! 


La solution évidente d’un tel pro- 
gramme consiste naturellement à 
écrire des programmes indépen- 
dants de leur origine, c’est-à-dire des 
programmes relogeables (relocatable 
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programs}, exécutables quelle que 
soit leur origine. 


Les deux obstacles principaux à de 
telles pratiques sont les branche- 
ments inconditionnels (JMP, abré- 
viation de « jump », l'équivalent en 
assembleur du GOTO) et les appels 
à des sous-programmes (JSR, 
« jump to subroutine », l'équivalent 
du GOSUB) comme le montre le 
petit programme ci-dessous : 


UE JMP DEBUT 
2 DEBUT JSR RIEN 

3 BRK 

a * 

5 RIEN RTS 

6 * 


Philippe François 


Le problème posé par les JMP se 
résout aisément : il suffit de rempla- 
cer ces branchements incondition- 
nels (dont les adresses sont explici- 
tes) par des branchements condi- 
tionnels forcés. En effet, les branche- 
ments conditionnels du type BEQ, 
BNE, étant des branchements 
relatifs, ils ne dépendent pas de 
l'adresse d'implantation du pro- 
gramme. On remplacera donc tous 
les JMP du programme par un des 
couples d'instructions suivant : CLC 
et BCC, ou bien SEC et BCS. 


1 GBC 
2 BCC DÉBUT 
3° 
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4 DÉBUT JSR RIEN 
5 BRK 

6 + 

7 RIEN RTS 

8° 


Un petit problème encore, à propos 
de ces branchements conditionnels 
forcés : les déplacements étant rela- 
tifs et s'exprimant sur sept bits {le bit 
huit indiquant le sens du déplace- 
ment, en amont ou en aval de la 
présente adresse) ne pourront être 
supérieurs à 126 octets dans un sens 
ou dans l’autre. 


Toute tentative de dépassement de 
cette limite sera sanctionnée par le 
fatidique message OUT OF RANGE 
ERROR de l’assembleur. 


La technique employée alors sera 
celle de l'ascenseur comme le mon- 
tre l'exemple suivant : 


ORG $800 
ELEC 
BCC ETAGE 


. ; suite du programme 


SEC 





Le problème posé par les JSR se 
résout moins aisément. Néanmoins, 
l'examen attentif des programmes 
machines relogeables du commerce 
(AMPER MAGIC, pour n'en citer 
qu'un), ainsi que la lecture d’un petit 
article dans Apple Assembly Lines 
(Vol. 2, N° 10, juillet 1982), nous 
ont permis de comprendre la façon 
dont il pouvait se résoudre : 


À la place de chaque JSR (nom du 
sous-programme), placez les trois 
lignes suivantes : 


CEV 
JSR $FF58 
BVC (nom du sous-programme) 


Mystérieux, n'est-ce pas ? Commen- 
tons donc cette séquence. L’octet 
placé à l'adresse $FF58 de la ROM 
Moniteur est toujours égal à 860, 
code de finstruction RTS 


L'appel d'un sous-programme con- 
sistant seulement en un RTS peut 
paraître stupide, mais il a pour effet 
de placer les deux octets de la pré- 
sente adresse sur la pile (stack), puis 
de les ressortir. Nous pourrons alors 
réutiliser ces deux octets dans le 




























sur la pile, exactement comme si 
nous l'avions appelé par un JSR 
RIEN normal ! Mais attention, ce 
n'est pas fini... En effet, si nous 
essayons de sortir du sous- 
programme RIEN par un RTS, nous 
allons nous retrouver à l'instruction 
BVC RIEN qui sera de nouveau exé- 
cutée et nous entraînera dans une 
boucle infinie ! Il n'y a malheureuse- 
ment pas d'instruction 6502 du type 
SEV {« set overflow ») ; aussi allons- 
nous faire appel de nouveau à notre 
précieuse adresse $FF58 et terminer 
notre sous-programme RIEN par le 
couple d'instructions suivantes : 


BIT $FF58 ; place l’over- 
; flow 
RTS 


L'instruction BÎT {voir par exemple 
« Programmation du 6502» par 
Rodnay Zaks, page 103} effectue un 
ET entre l'accumulateur À et la 
mémoire , mais. surtout, les bits 6 et 
7 de la mémoire sont transférés dans 
les bits V et N du registre d'état. La 
mémoire contenant $60 (soit 
01100000 en binaire), le bit V du 





: è sous-programme concerné : 
ETAGE  BCC DEBUT registre sera donc bien positionné à 
RIEN TSX : valeur du pointeur la valeur 1. 
: suite du programme : de pile Résumons-nous par ce petit pro- 
L DEX gramme où sont utilisées toutes les 
DEBUT  JSR RIEN DEX techniques examinées dans cet arti- 
BRK TXS : nouvelle valeur 4: 
RIEN RTS Le sous-programme RIEN possède 
* maintenant une adresse de retour 
1 x 
RELOGEABLE 2 RETURN EQU $FF58 
Big Mac 3 COUT EGU $FDED 
4 x 
8888: 18 5 ELEC PSEUDO JMP DESUT 
8881: 983 ag 6 8CC DESUT 
7 x 
8883: 88 8 DESUT CLU EMPILE LA PRESENTE 
8884: 26 58 FF $ JSR RETURN ADRESSE 
8887: 59 684 18 BUC BELL PSEUDO JSR 8ELL 
8889: ÀS Ci Ji LDA #"A" 
8668: 28 ED FD 12 JSR COUT 
8668E: 40 13 RTS 
14 x 
{5 x 
888F: BA 1é 8ELL TSX x MISE À JOUR 
8818: CA 17 DEX *% DU POINTEUR 
8811: CA 18 DEX x DE PILE 
8812: 9A 19 TXS 
8813: AS 87 28 LDA #$87 
8815: 29 ED FD 21 JSR COUT 
8818: 2C 58 FF 22 8IT RETURN ARME LE BIT N 
23 x DU REGISTRE D'’ETAT 
8818: 68 24 RTS 
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Le programme ci-contre s'adresse à 
ceux qui souhaitent visualiser les 
informations stockées sur une dis- 
quette formatée en Pascal. Ces 
informations sont groupées en 
280 blocs de 512 octets par dis- 
quette. 


Description générale 


Le programme édite sur l'impri- 
mante un « dump » de la disquette 
tel que présenté en fin d'article. Cha- 
que ligne indique le numéro d'un 
groupe de huit octets, puis chacun 
de ceux-ci en décimal (de 0 à 255), 
et enfin les caractères ASCII corres- 
pondant à ces huit octets. 


Vous vous êtes probablement aper- 
çus que le code ASCII est le même 
pour un octet X (de O à 127) et 
l'octet X + 128. Toutefois, dans le 
listing ASCII des octets dont la 
valeur dépasse 127, nous avons pré- 
cédé ceux-ci du caractère exponen- 
tiation « A ». 


D'autre part, les caractères dont les 
codes sont compris entre O et 32 
inclus ne sont pas tous imprimables. 
C'est pourquoi nous les avons rem- 
placés par un mnémonique relatif à 
leur rôle respectif (12 = LF, 
27 = ESC, 7 = BEL,..). Ces 
mnémoniques sont imprimés après 
que leur signification ait été prélevée 
dans le tableau TABCTRL OF 
STRING [3]. Ce tableau est rempli 
en début de programme par la pro- 
cédure LECTABCTRL à partir du 
fichier précédemment créé par le 
programme WRITECTRL sur lequel 
nous reviendrons ultérieurement. 


Le programme 


Lors de son exécution, le pro- 
gramme LECTBLOCK demande à 
l'utilisateur le numéro du canal asso- 
cié à la disquette à analyser, puis 
celui du premier bloc, et enfin le 
nombre de blocs à « dumper ». Pour 
savoir à partir de quel bloc cette opé- 
ration doit débuter, il suffit d’exami- 
ner le directory de la disquette avec 
le FILER en sélectionnant la com- 
mande E. 


Dès cet instant, le « dump » sort sur 
l'imprimante et occupe 65 lignes sur 
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Dump Pascal 


une page qui en contient normale- 
ment 66, ce qui permet d'archiver 
une page de listing par bloc de 
512 octets. Il faut remarquer que, 
contrairement au BASIC, Pascal 
enregistre ses fichiers sur disquette 
de façon continue, si bien qu'il est 
très simple de lister un fichier 
connaissant l'adresse de son premier 
bloc et sa longueur (commande E 
sous FILER). 


Le programme lui-même est simple 
et s'articule autour d’une instruction 
UNITREAD (numdrive, fich, 512, 
numbloc). Cette instruction est capa- 
ble de lire des informations non 
structurées, contrairement aux 
autres instructions d'entrée/sortie. 
Les paramètres de cette instruction 
sont : le numéro de drive. fich (un 
tableau de caractères), 512 (nombre 
d'octets à lire) et numbloc (le 
numéro du bloc). 


Notons également qu'afin d’alléger 
au maximum le programme. aucun 
contrôle de cohérence n’a été pro- 


c'esr PE A 
eant D'UN LECTEUR 
HÉCONTERT - 





grammé dans les saisies, ce qui 
implique un tant soit peu de vigi- 
lance lors de l'entrée des paramè- 
tres. On aurait pu effectuer des tests 
de cohérence, maïs il faut bien com- 
prendre que l'utilisation de ce pro- 
gramme est ponctuelle, dans le but 
de scruter des informations sur dis- 
quette, ce qui n’est pas une manipu- 
lation courante. 


Michel Marquis 


Il n'est toutefois pas inutile de l'exé- 
cuter simplement par curiosité. 
notamment sur les fichiers illisibles 
par des moyens « légaux » comme 
SYSTEM.APPLE, SYSTEM MIS- 
CINFO, … ou sur le texte de votre 
programme {vous serez surpris !). A 
titre d'exemple, nous avons joint en 
page 34 un « dump» partiel du 
fichier CTRLDATA créé par le pro- 
gramme WRITECTREL. 


Mise en œuvre 
du programme 


1. Entrer le programme 
WRITECTRL 


2 . L'exécuter en y entrant les mné- 
moniques ASCII de 0 à 32. 
S'aider de Pom's 4 ou du 
« dump » donné en annexe. 


3 . Entrer le programme 
LETBLOCK. Vous pouvez chan- 
ger le numéro du drive sur lequel 
se trouve FICHCTRL en rempla- 
çant #5: CTRLDATA par 
#4 : CTRLDATA 


4 . Lancer l'exécution. 


Bien entendu, si vous avez acheté la 
disquette d’accempagnement de ce 
numéro, vous y trouverez les pro- 
grammes tout prêts. 


Conclusion 


Comme nous l'avons remarqué plus 
haut, ce programme n'est pas d'une 
utilisation courante, mais il peut 
apporter beaucoup à ceux qui tra- 
vaillent « près » du système. De 
toute façon, il présente un intérêt 
pédagogique indiscutable. Pour 
l'instant, nous nous limitons à la 
publication d'un programme capable 
uniquement de lire des blocs sur dis- 
que, donc sans danger. 1] lui man- 
que la possibilité de modifier les 
octets lus, puis de les réécrire. Nous 
ne doutons pas que certains d’entre 
vous l’écriront rapidement et enver- 
ront leurs contributions à Pom's. 
Pour les autres, si la suite les inté- 
resse, nous pourrons la publier ulté- 
rieurement. 
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Programme DUMP 


PROGRAM LECTBLOCK; 
TYPE CARACT=PACKED RECORD 
NOM : STRINGI 31 
END; 


VAR FICH:PACKED ARRAYI8..5111 OF CHAR; 
PAPIER:TEXT; 
TABCTRL:PACKED ARRAYI8..32) OF STRINGI3); 
FICHCTRL:FILE OF CARACT; 
NUMBLOCK ,NUMDRIVE ,NBBLOCK : INTEGER; 
REP: CHAR; 


PROCEDURE LECTABCTRL ; 
VAR I:INTEGER; 


BEGIN 
RESET(FICHCTRL, #5: CTRL.DATA”) ; 
FOR 1:=8 TO 32 DO 
BEGIN 

TABCTRLI 1 ] :=FICHCTRL* .NOF#; 
GET(FICHCTRL) 
END ; 
CLOSE(FICHCTRL) ; 
END ; 


PROCEDURE LECTURE ; 
VAR 1,J,CH:INTEGER; 


BEGIN 
REWRITE(PAPIER, ’PRINTER:°) ; 
WRITELN(PAPIER, ’ BLOCK NUMERO : ‘ :45 ,NUMBLOCK) ; 
UNITREAD{NUMDRIUVE ,F1CH,512,NUMBLOCK) ; 


1 :=0; " 

REPEAT LE Mb 
WRITE(PAPIER,1:3,’ °); FLRIAS M IT Las 
FOR Ji=1 TO 8 DO sie. et MES M .'S 


CH:=ORD(FICHI11) ; 
WRITE(PAPIER, CH:4) ; 
1:=1+1; 

END ; 

WRITE(PAPIER ,‘ r»3 

1:=1-8; 

FOR J:=1 TO 8 DO 
BEGIN , 
CH:=ORD(FICHIIJ) ; CE à ms D) EE 1 EE: » 

IF CH>127 THEN E , \ : Li TRERMEN ee À ES 

BEGIN € :E . À NE EE - ES 
WRITE(PAPIER,’ *‘); LL: 
CH:=CH-128 RE 
END 
ELSE WRITE(PAPIER,’ ‘); 
IF CHC=32 THEN WRITE(PAPIER, TABCTRLI CHI) 
ELSE WRITE(PAPIER, CHRCCH) : 3) ; 
I:=1+1 
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END; 
WRITEENCPAPIER) ; 
UNTIL 12511: 
CLOSE PAPIER) ; 
END; 


BEGIN (XPROGRAMME LECTURE BLOCK(S) x) 
LECTABCTRL; 
REPEAT 
PAGE( OUTPUT) ; 


GOTOXY (5,5) ;sWRITE(” NUMERO DU DRIVE (SANS #) : ‘’); 


READLN(NUMDRIVE) ; 


GOTOXY (5, 18) ;:WRITE(’ NUMERO DU PREMIER BLOCK : ‘) ; 


READLN (NUMBE OCK) ; 





GOTOXY(S , 15) ; WRITE(’NOMBRE DE BLOCK(S) : ”); 


READENCNBBLOCK) ; 
REPEAT 
LECTURE ; 
NUMBLOCK :=NUMBLOCK+ 1 ; 
NBBLOCK:=NBBLOCK- 1 ; 
UNT IL NBBLOCK=8 ; 


GOTOXY( 18,22) ;WRITEC’CONTINUER ? CO/N) °) ; 


READ(REP) ; 
UNTIL REP="N’ 
END. 


Programme WRITECTRL 


PROGRAM WRITECTRL ; 
TYPE CARACT=PACKED RECORD 
NOM : STRINGI3) 
END : 


VAR 1:INTEGER; 
FICHCTRL:FILE OF CARACT; 


PROCEDURE OUVERTURE ; 
BEGIN 
(X$I—-X) 
RESET(FICHCTRE , ‘ #S :CTRL.DATA") ; 
CX$1+X) 
IF IORESULT<3>6 THEN 
BEGIN 


BEGIN 


OUVERTURE; 

RESET(FICHCTRL, #5: CTRL. DATA”) : 

PAGE OUTPUT) ; 

FOR I:=8 TO 32 DO 

BEGIN 
WRITECI1:3,° = ’); 
READLN(FICHCTRL* .NOM) ; 
PUT(FICHCTRL) ; 

END ; 

CLOSE(FICHCTRE , LOCK) 


END. 


Exemples de dump en page 34 


IF IORESULT=18 THEN REWRITE(FICHCTRE, ‘ 45: CTRL. DATA‘) 


ELSE BEGIN 
PAGECOUTPUT) ; 
WRITEC’ERREUR E/S") ; 
EXIT(WRITECTRL) 
END: 
END ; 
CLOSE(FICHCTRL , LOCK) 
END ; 
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TOUT SUR LA MICRO 
INFORMATIQUE 


du 14 au 18 juin 1983 






L'Exposition : 
du 14 au 18 juin 1983 


e mardi 14, mercredi 15, vendredi 17, de 9h 30à 18h 
e nocturne le jeudi 16, de 9 h 30 à 22h + samedi 18 de 9 h 30 à 17h. 


Tous les matériels, toutes les applications des micro- persannelle, venez évaluer les matériels, comparer leurs 
ordinateurs. Que votre motivation soit professionnelle ou coûts et vous renseigner sur les applications disponibles. 


Nouveauté 83 : une animation « logiciel » 


(organisée par Sybex et Logiciels & Services). 


Une banque de données des logiciels présentés par meilleurs logiciels pour micro-ordinateurs. Les lauréats pré- 
les exposants à MICRO-EXPO vous guidera, selon vos  senteront leurs logiciels pendant toute la durée de MICRO- 
besoins spécifiques, à travers l'exposition. EXPO (Renseignements : Logiciels & Services, tél. : (1) 
Un «grand concours » destiné à récompenser les 226.11.25). 


Et pendant toute la durée de l'exposition, une animation-jeux : venez affrontez l'ordinateur et peut-être. le battre. 


Le Congres 
du 13 au 18 juin 1983 


Du débutant à l'expert, une occasion unique dans l'année de se former et de s'informer. 


Séminaires professionnels Conférences Crand Public 
Les micro-ordinateurs : présentation, choix Choix d'un micro-ordinateur 
Les micro-ordinateurs de poche 


Les langages : BASIC, PASCAL, APL le tentude té 
Les nouveoux langages : FORTH, LOGO, PROLOG, C 


Lo télématique 


L'enseignement assisté par ordinateur - E.A.O. 


Les systèmes d’exploitañon pour micro-ordinateurs 16 bits 








Le traitement de texte 
Journées spécialisées, avec démonstrations : 


— pour les professions juridiques, 
— pour la médecine, 
— pour l'agriculture. 


L'entreprise, son système d'information et l'informah'que 


La comptabilité et ses logiciels 





Les bases de données et leurs logiciels 


: ue Journées des constructeurs : 
LE | COMMODORE, GOUPIL, HEWLETT-PACKARD, 
Le système d'exploitation MS-DOS TANDY, THOMSON, VICTOR LAMBDA 





INFORMATION 





Nom ; 


Adresse : 
SYBEX Code postal :L_L L LL JVile : 


[1 ___ entrées(s) à demi-tarif Programme détaillé du congrès 


4, place Félix-Éboué - 75583 PARIS Cedex 12 - Tél. : (1) 347.30.20 - Telex : 211 801 F 
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fix organisé par : 
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Fichier CTRL-DATA : dump partiel 


BLOCK NUMERO : 21 


(J 3 78 85 7é 3 83 79 72 ETX N U L  ETX S (a) H 

8 3 83 84 88 3 69 84 88 ETX S T X ETX E T X 
lé 3 69 79 84 3 69 78 81 ETX E 0 T ETX E N @ 
24 3 65 67 75 3 éé 469 76 ETX A C K  ETX B E L 
32 3 32 66 83 3 32 72 864 ETX SPC 8 S ETX SPC h hi 
48 3 32 76 708 3 32 86 84 ETX SPC L F ETX SPC V T 
48 3 32 76 78 3 32 67 82 ETX SPC F F ETX SPC C R 
96 3 32 83 79 3 32 83 73 ETX SPC S O ETX SPC S 1 
64 3 68 76 69 3 68 67 49 ETX D Ë E ETX D C 1 
72 3 6B 67 58 3 68 67 51 ETX D C 2 ETX D C 3 
88 3 68 67 52 3 78 65 75 ETX D C 4 ETX N A K 
88 3 683 897 78 3 69 84 66 ETX S Y N  ETX E T B 
fé 3 67 65 78 3 32 69 77 ETX C Â N ETX SPC E M 
184 3 83 85 éé 3 69 83 67 ETX S U B ETX E S C 
112 3 32 76 83 3 32 ?71 83 ETX SPC F S ETX SPC G S 
128 3 32 82 83 3 32 85 83 ETX SPC R S ETX SPC U S 
128 3 83 86 647 ( @ (:] 8 ETX S P C NUL NUL NUL NUL 





Fichier 6500 ERRORS : dump partiel 


BLOCK NUMERS : 151 
(:] 1 32 185 38 8 (:] (:] 6 SOH SPC * 9 RS NUL NUL NUL NUL 


8 174 21 147 161 7 165 128 211 4 ,. _NAK “DC3 * 1! SEL * 7% “NUL 2 
16 198 184 1 94 25 1 165 128 * 7 8  SOH 8 EM SOH * % "NUE 
24 185 174 28 167 SS 161 3 41 FOSR e, DEA Pr € 7 * KE VETX ) 
32 174 18 1635 128 143 6 264 1 # ,. DC2 * % “NUL * SI NUL * L  SOH 
480 198 1 15 117 118 188 181 102 * F  SOH SI u n d e f 
48 185 118 191 188 32 188 97 98 i n e d SPC 1 a b 
96 101 198 198 184 1 94 25 1 e 15 23 7 8 sh ü EM  SOH 
64 165 128 185 174 28 167 55 léi AU OINUL SE HT. y: DEA *. 7 
72 3 41 174 18 165 128 143 (-) ETX > * = DC2 * ZX “NUL ” SI HU 
88 264 1 198 1 26 111 112 181 # L SOH * F SOH DC o p e 
88 114 97 118 188 32 111 117 114 r a n d SPC o U t 
96 32 111 182 32 114 97 118 1083 SPC o f SPC r a n 

184 181 1 165 128 185 174 28 167 e SOH * %Z "NUL 9% , DC4a = 
112 35 161 3 41 174 18 1635 128 7 © À EX >) * « DC2 * Z "NUE 
128 143 6 284 i 198 i 24 189 % SI NUL * L  SOH F  SOH CAN mi 
128 117 115 116 32 184 97 118 181 U s t SPC h a v e 
136 32 112 114 111 99 181 108 117 SPC P Li o € e d ü 
144 114 181 32 118 97 189 181 174 r e SPC n a m ee 
152 28 167 55 161 3 41 174 18 DC4 * ” HS QU: HETX >) * .  DC2 
148 165 128 143 @ 264 1 198 1 4% “NUL ” SI NUL * L SOH * F  SOH 
168 29 119 117 189 98 181 114 32 GS n u m b e r SPC 
176 111 182 32 112 97 114 97 189 o # SPC p a r a m 
184 101 116 181 114 115 32 181 128 e t e r s SPC e x 
192 112 181 997 116 181 188 3 41 p e c t e d ETX ) 
208 174 18 165 128 143 6 264 1 * . DC2 * ZX “NUL * SI NUL 7 L  SOH 
2068 178 1 21 181 128 116 114 97 * F  SOH NAK e x t r a 
216 32 183 97 114 98 97 183 181 SPC 9 a r b a 9 e 
224 32 111 1189 32 188 185 118 181 SPC © n SPC L i n e 
232 181 128 ;iz 181 99 116 181 168 e x p e c t e d 
248 3 41 174 18 165 128 143 (] ETX ) * . DC2 * Z% “NUL * SI NUL 
248 264 1 198 1 29 185 118 112 # L SOH * F  SOH GS i n p 
256 117 116 32 188 185 118 181 32 u t SPC 1 i n e SPC 
264 111 118 181 114 32 56 48 32 o v e r SPC 8 8 SPC 
272 99 184 97 114 97 99 116 181 c h a r à c t e 
280 114 15 3 41 174 18 145 128 r s ETX > * à DC2 * ZX "NUL 
288 143 @ 284 1 198 1 lé 118 * SI NUL * L SOH * F SOH DLE n 
296 111 116 32 181 118 11: 117 183 o t SPC e n o U 9 
3864 184 32 46 73 78 39 115 56 h SPC . 1 F ? s 8 
312 48 32 99 184 97 114 97 99 8 SPC € h a r a c 
328 116 181 114 115 3 41 174 18 t e Tr s ETX 2 * .  DC2 
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Bien que totalement inédit, ce géné- 
rateur peut être d’une grande utilité 
pour un programme scientifique ou 
éducatif, ainsi que pour tout pro- 
gramme devant conserver et utiliser 
des données sans créer de fichiers. 
En fait, il devrait aussi permettre de 
réaliser des programmes sortant de 
l'ordinaire. 


Le générateur donnera à votre pro- 
gramme la faculté de se développer 
lui-même, grâce à une simple com- 
mande qui, lorqu'elle est rencon- 
trée, a pour effet d'ajouter un 
numéro de ligne à toute instruction 
Applesoft et d'insérer la ligne en 
question dans le programme. 


En fait, il a fallu pour l'écrire recourir 
à des routines de la ROM Applesoft 
assez peu connues. Ces routines 
seront indiquées plus loin. 


Principe de 
fonctionnement 


Ayant souvent éprouvé l'inconvé- 
nient, dans un programme utilisant 
des fonctions mathématiques, de 
devoir stopper celui-ci pour y insérer 
des lignes de définitions ou pour y 
incorporer des DATA, je me suis dit 
qu'il serait merveilleux de disposer 
d'une routine en asssembleur accor- 
dant aux programmes écrits en 
Applesoft une dimension évolutive, 
la capacité de s’auto-générer ! 


Les données entrées par INPUT au 
cours du programme pourraient par 
exemple lui être incorporées sous 
forme de lignes d'instructions, avec 
un numéro qui serait automatique- 
ment incrémenté et placé au début 
de la ligne générée. 

Pour que le générateur puisse opé- 
rer sur toute instruction Applesoft, 
une commande INPUT digérant vir- 
gules et deux-points est indispensa- 
ble ; or, cette commande a été réali- 
sée antérieurement et publié dans le 
numéro 5 de Pom's (voir « La pro- 
grammation facilitée »). 


Parmi les instructions qui compose- 
ront les lignes générées, l’une serait 
corrélative à l'auto-écriture d’instruc- 
tions DEF. En effet, lorsque le pro- 
gramme appellera une ligne conte- 
nant des instructions DEF, cet appel 
nécessitera un RETURN, qui devra 
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par conséquent être produit par le 
générateur. 

Demander au programme d’effec- 
tuer un appel par GOSUB ou 
GOTO à deslignes qui n'existent pas 
encore, et que l’on propose d’ajou- 
ter durant le traitement. pose quel- 
ques questions! Une convention 
s'impose alors : les lignes ajoutées 
commenceront par exemple à partir 
du numéro 20 000, avec un incré- 
ment de 18 ; on calculera ainsi le 
numéro d'une ligne créée à partir de 
son rang. S'il s’agit de la troisième. la 
première ligne ayant le 
numéro 20 000, ce sera la ligne 
20 020. 


On se dit que, puisque le générateur 
peut ajouter une nouvelle ligne au 
programme, il serait également 
nécessaire de pouvoir modifier la 
dernière ligne existante. lorsqu'il 
s’agit d'un RETURN notamment. 
Cette possibilité serait obtenue par 
une option à laquelle on donnera le 
nom de POP. 


Ces projets me paraissaient promet- 
teurs ; jimaginais un programme 
démarrant avec deux lignes, s’auto- 
générant à partr de quelques indica- 
tions et se sauvegardant tout seul sur 
la disquette, une fois la mémoire 
saturée … 


Un écueil de taille s’opposait toute- 
fois à la réalisation : il fallait trouver 
la procédure Applesoft convertissant 
les lignes en format programme, 
dans lequel les instructions sont 
représentées par un code d’un seul 
octet. Je ne possédais pas la docu- 
mentation nécessaire et entrepris de 
la chercher tout seul dans l'Apple- 
soft, à partir de l'adresse $D000. 


C'est à l'adresse $D56D que je lai 
enfin trouvée, rebelle à un emploi 
immédiat, finissant avec la longueur 
des données en Ÿ alors qu’elle est 
initialement en X dans le buffer 
d'entrée et modifiant en outre 
TXTPTR, l'ensemble des pointeurs 
servant à analyser le programme en 
cours. Cette routine une fois décou- 
veite (ainsi que quelques autres à 
l'occasion), le module était réalisé ; 
en voici le mode d'emploi. 


Mode d’emploi 


Une seule commande permet 


d'obtenir la génération d’une ligne 
Applesoft de tout type : son format 
comporte deux variantes. soit 
l'emploi d'un mot réservé de 
l’'Applesoft, soit l'emploi d’un carac- 
tère quelconque. 


Les instructions & DATA AS et & 
DEF Aflorsqu'’elles sont rencon- 
trées, ont pour effet d'ajouter au 
programme les instructions conte- 
nues dans A$ sur une ligne qui com- 
mencera automatiquement par 
DATA ou DEF. Plus généralement, 
avec la syntaxe & X A, X est choisi 
par l'utilisateur. Cela peut être un 
caractère quelconque ou un mot 
réservé de l'Applesoft, avec un effet 
différent : le mot réservé sera incor- 
poré en début de ligne, le caractère 
ne le sera pas. 


L'option POP utilise la syntaxe & 
POP DATA A$ ou enfin & POP X 
A$. la nouvelle ligne remplaçant la 
dernière et prenant son numéro. 


Les commandes du générateur peu- 
vent s'employer en mode direct si un 
programme est présent en mémoire 
et si la LOMEM a été déplacée. Ceci 
est une précaution dont on s'assu- 
rera toujours avant d'utiliser le géné- 
rateur : la LOMEM doit être placée 
suffisamment haut pour protéger les 
variables, puisqu'elles suivent immé- 
diatement, en temps normal, le pro- 
gramme dans la mémoire. 


NDLR : ne pas oublier d'abaisser la 
HIMEM au-dessous du début du 
générateur avec HIMEM : 38048 si 
l'origine est en $94A0 comme sur le 
listing. 


Routines Applesoft 


Les deux plus importantes sont 
MOUSTR ($E5E2) pour le transfert 
des données et en $D56D celle qui 
« tokenize » le buffer d'entrée, c’est- 
à-dire qui convertit les mots réservés 
en codes. 


On appelle $D56D avec X mis à O, 
en sauvegardant TXTPTR qui sera 
pointé sur le buffer d'entrée ($200), 
et en remplaçant par $0 le délimiteur 
$D (RETURN) se trouvant à la fin du 
texte lors d’une entrée par INPUT. 
Convertie en format Applesoft, la 
ligne se trouve bien sûr réduite ; le 
registre Ÿ contiendra alors la nou- 
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velle longueur de la ligne, délimiteur 
compris. 


MOVSTR transfère une donnée 
pointée par YŸ (ADL), X (ADH), lon- 
gueur en À vers l'adresse pointée en 


$71et $72 (FRESPC). 


MOVINS ($E5D4) fait la même 
chose que MOVSTR mais copie une 
chaîne dont le descripteur est pointé 
en $AB-$SAC (STRNG1). Le registre 
Y revient à O et $71-$72 pointent 
maintenant sur la position qui suit la 
chaîne transférée. Ces pointeurs 
sont incrémentés par la valeur de 
l'accumulateur À par une routine 
dont l'adresse est $E5F3. 


ENDLIN ($D61A) est utilisée par la 
commande RESTORE. Elle recher- 
che ladresse de la ligne dont le 
numéro a été placé en $50-$51 
(LINNUM) et la pointe en $9B-$9C 
(LOWTR). Si la retenue C est mise à 
O, la ligne n’a pas été trouvée. 


Deux lignes consécutives en Apple- 
soft séparées par 5 octets : le code O 
de fin de ligne, 2 octets qui pointent 
sur la ligne suivante. 2 octets pour le 
numéro. L'adresse du numéro de la 
dernière ligne s'obtient donc en 
lisant les 2 premiers octets de cha- 
que ligne, jusqu’à ce que deux « O » 
consécutifs signalent la fin de pro- 
gramme. 


L'adresse de la ligne sera pointée 
dans ADRNUM ($IE, $1F), utilisé 
pour la conserver, et on fera deux 
adressages indirects indexés par Y 
pour avoir accès au numéro de 
ligne. Les deux premiers octets de la 
ligne générée pointeront sur la fin du 
programme. ls seront suivis du 
numéro de la dernière ligne incré- 
menté de 10, puis éventuellement 
du code instruction employé dans le 
format et finalement, du contenu. 


Le listing du programme commente 
toutes les étapes de cette génération. 


GENERATEUR 33 
x 34 ADRPROG 
Big Mac 35 
36 
1 HOGOOOODOXXIDOODOLOONKX VERS. 37 
2 XXXXXX GENERATEUR XXXXX 2.0 38 
3 AXXXXXXXXNXIIIOOOIOXKNX 39 
4 XXX PAR DENIS SUREAU XX ae 
5 XXXXXXXXXXXXXXXXKEXIENX ai 
6 XX COPYRIGHT (C> 1982 X 42 
7 EXXXXXXXXXXKXKKXKIIINMX 43 
g 44 
3 45 
19 FNDLIN = $Dé1A 46 
11 FRENUM = $DDé7 47 
12 PTRGET = $DFE3 48 
13 MOUINS = $ESD4 49 DEPART 
14 MOUSTR = $ESE2 50 
15 SGETADR = $E7S2 51 
16 52 
17 LINNUM = +00=8 53 
18 VARPNT = +$08B3 54 
19 FORPNT = $0885 51e 
28 CHRGET = $88B1 5é 
21 TXTPTR = +068 57 
22 58 
23 LNGTEXT = 40016 59 
24 ADRTEXT = $0019 :$19-$1A 68 RESTORE 
25 INSTRUC = 408018 61 
26 SEPARATR = $081C 62 
27 INCR = $00iD 63 
28 ADRNUM = $001E :$1E-$1F 64 
29 65 
38 8RG +740 66 
31 67 
32 X< UN PROGRAMME RELOCATABLE >X 68 





Les bons trucs... 


Le générateur est court grâce à 
l'emploi de routines Applesoift ; 
étantrelogeable, il peut être chargé à 
l'adresse voulue, de préférence au 
sommet de la mémoire, protégé par 
l’'abaissement de la HIMEM. 


À noter dans la rubrique «trucs et 
astuces » : quand on ne manipule 
pas de fichiers, mais beaucoup de 
chaînes de caractères, il est possible 
de réduire la zone des variables, à 
l'aide de HIMEM et LOMEM, de 1 K 
à 3 K. D'où réduction des problèmes 
dûs au nettoyage mémoire ! 


Des applications originales peuvent 
s'imaginer, telles que la conversion 
de routines en lignes de DATA, la 
création de programmes à partir de 
fonctions et d’affectations détermi- 
nées par calcul. Imaginons qu’à par- 
tir de bases bien définies un pro- 
gramme puisse se construire lui- 
même pour atteindre un but connu 
de lui seul... 


JSR $FFSB : SUR RTS 

TSX 

DEX 

LDA $1988.X 

CLC 

ADC  #DEPART-ADRPROG-2 

STA +23F64 

INX 

LDA +$198,X 

ADC *#@ 

STA +$3F7 

LDA #$49C 5 JMP 

STA $3F5 

RTS 

STA  INSTRUC 

CMP #174 :RESTORE? 

BEQ RESTORE 

TAY 

JSR CHRGET 

CPY #141 3 POP? 

BNE  GENER 

STA  INSTRUC 3SI OÙI, 

JSR CHRGET 3 INCR MIS 

LDA Hg sA 8 

8EQ GENER2 

JSR CHRGET 3PLACE 

JSR  FRENUM 3NUM LGNE 

JSR GETADR sEN $50-51 

LDA  LINNUFA 5LE PLACE 

STA $7B 3EN NUM 

LDA LINNUM+1 3DE LIGNE 

STA $7C 3DE DATA 

JSR  FNDLIN s CHERCHE 

LDA $9B sLA LIGNE 
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69 ADC 4503 ADR EN 

70 STA #70 1$78-9C. 
71 LDA $9C IMET ADR 
72 ADC #8 :LIGNE EN 
73 STA. #7E ; POINTEURS 
74 RTS :DE DATA 
75 

76 GENER LDA ##an MET 18 

77 GENER2Z STA INCR :EN INCR. 
78 

79 LDA H$94 

80 STA  SEPARATR 

81 

82 X LOCALISE LE DESCRIPTEUR DE LA 
83 x VARIABLE ET PLACE LA LONGUEUR 
84 x EN LNGTEXT,L'ADRESSE EN ADRTEXT 
85 

86 JSR PTRGET 

87 STA FORPNT  ; SAUVE 

88 STY FORPNT+1 ADR DESCR 
89 STA 448 : POINTEURS 
90 STY  $AC ;PR MOUINS 
91 LOY H#$02 

92 DSCLOOP LDA €(UARPNT) ,Y 

93 STA LNGTEXT,Y 

94 DEY 

95 BPL DSCLOOP 

96 

97 LDA INSTRUC 

98 CMP. #122 ; INPUT? 

99 BNE  ADRDRI 

150 

181 x $FD6éF EST L’INPUT DU MSNITEUR 
182 x $D539 CONVERTIT LA CHAINE EN 
183 X FORMAT APPLESOFT,BIT 7 A 8 
194 X 8E3E9 & $DASA COPIENT LA DONNEE 
195 *X DU BUFFER D’ENTREE EN MEMBIRE, 
186 X DESCRIPTEUR POINTE EN FORPNT. 
187 

188 JSR $FDé6F 

189 JSR $D539 

110 LDA ## 

111 LOY #2 

112 TAX :DELIMITR 
118 JSR S$E3E9 

114 JMP $DA9A 

115 

116 X TROUVE L’'ADRESSE DE LA DERNIERE 
117 X LIGNE 

118 

119 ADRDRN  LDY #1 

128 LDX 1983 ;DEBUT DE 
121 LDA 184 ; PROGR. 
122 BNE  ADRTRNS 

123 LOOP STX  ADRNUM 

124 LDA $9C 

125 STA  ADRNUM4+ 1 

126 DEY :LIT ADR 
127 LDA ($9B) ,Y  :LIGNE 

128 TAX : SUIVANTE 
129 INY :LA MET EN 
139 LDA ($9B),Y 3:59B-$9C 
131 ADRTRNS STX $9B 

132 STA $9C 

135 LDA (#98) ,Y 
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BNE 


X TESTE SI POP OPTION 


LDA 
BNE 


LDÀ 
STA 
LDA 
STA 
BRANCH LDA 
BPL 
INC 
CMP 
8EQ 


X ’TOKENIZE’ 
X DEF OÙ UNE 


LOOP 


INCR 
BRANCH 


ADRNUM 
$9B 
ADRNUT4+ 1 
$9C 


INSTRUC 
TOKEN 
SEPARATR 
#131 
COPY 


3; CARACT. 


: DATA? 


UNE INSTRUCTION 
LIGNE D’INSTRUCTIONS 





TOKEN LDA TXTPTR : SAUVE | 
PHA :TXTPTR 
LDA TXTPTR+I | 
PHA 
LDA Ha > COPIE 
STA +71 LA CHAINE 
LDA ##$62 :EN MEM 
STA +72 DANS LE 
JSR MOVINS : BUFFER 
x ELLE N’ACCEPTE PAS UN CODE SEUL 
X AUSSI ON AJOUTE UN CODE NUL ,’:” 
X OANS LE BUFFER,IL SERA SUPPRIME 
X ENSUITE 
LDX LNGTEXT 
LDA #’:° :MET ’:° 
STA +208 ,X 
LDA  #a :MET LE 
STA +$201,X >DELIMITR 
TAX >: ZERO 
x #&bS6éD EST LA ROUTINE DE 
X CONVERSION DES MOTS-CLES 
x EN CODES, Y PASSERA LA NOUVELLE 
X LONGUEUR 
STA +13 
JSR $0560 
DEY 
DEY 
STY LNGTEXT  ; UPDATE 
LDA  H$FC 5LNG & ADR 
STA ADRTEXT  ; POUR 
LDA ##01 >MOUINS 
STA ADRTEXT+1 
PLA : RESTAURE 
STA TXTPTR+1I ; TXTPTR 
PLA 
STA  TXTPTR 
COPY LDA +598 :COPIE 
CÈC LA CHAINE 
ADC SEPARATR 3;DE LA VAR 
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ST TRANS 1 PT NAN 


QE 1 





12% 
288 
281 
282 
263 
284 
285 
286 
287 
2688 
289 
218 
211 
212 
213 
214 
215 
21é 
247 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 


STA $71 :OU DU 
LDA $9€C > BUFFER 
ABC #@ 34 LA FIN 
STA +72 :PU PROGR 
LDY  LNGTEXT 

LDA #0 :MET LE 
STA ($71),Y  3DELIMITR 
LDA  LNGTEXT 

LBX  ADRTEXT 

LBY ADRTEXT+] 

JSR MOUSTR 

EDA #i 3 INCREM. 
JSR $ESF3 58/71 


INSERTION DE L’ADRESSE DE LIGNE 


SUIVANTE DANS LES 2 PREMIERS 


DES POINTEURS DE FIN CE 


x 
x 
X OCTETS DE LA LIGNE, AJUSTEMENT 
x 
x 


PROGRAMME 

LDA #71 

STA (#98) ,Y 

ELEC 

ABC #2 

STA 175 

INY 

LDA +72 

STA (#98) ,Y 

ABC #0 

STA 176 
GENERATEUR 
Récapitulation 
X9440 .95E2 
S448- 20 58 FF BA CÂ 
9448- 18 69 1B 8D Fé 
94B08- 808 81 69 88 8D 
9488- 4C 8D F5 03 68 
94C8- AE F8 11 A8 28 
94C8- A1 DO 2A 85 1B 
94D8- ÀS 08 F6 23 28 
94D8- 67 DD 28 52 E7 
94E8- 78 ÀS 51 85 7C 
94E8- ÀS 9B 69 83 85 
94F8- 69 88 85 7E 608 
94F8- 1D A9 84 85 1C 
9588- 85 B5 84 86 85 
9588- ÀG 82 B1 83 99 
9518- 18 F8 ÀS 18 C9 
951B- 206 6F FD 28 39 
9528- À8 82 AA 28 E9 


AB 


229 





238 %X INSERTION DU NUMERG DE LIGNE 

23i X DANS LES 2 OCTETS SUIVANTS 

232 

233 INY 

234 LDA  CADRNUM) ,Y 

235 CLC :MET LE 

226 ABC  INCR :NUMERO 

237 STA ($9B),Y :;:DE LIGNE 

238 INY 

229 LDA  ADRNUM) ,Y 

246 ABC #0 

241 STA ($9B) ,Y 

242 LDA  INSTRUC  :MET 

243 8PL FIN 3 DATA’ OÙ 

244 INY s/DEF” 

245 STA (598) ,Y 

246 

247 X DEUX 2EROS LA OÙ DEVRAIT SE 

248 X TROUVER LE CEBUT D’UNE AUTRE 

249 * LIGNE SIGNALENT LA FIN DE 

258 * PROGRAMME 

251 

252 FIN LA #9 

253 TAY 

254 STA ($71),Y 

259 INY 

256 STA ($71i,Y 

257 RTS 
9528- DA A8 81 A6 67 A5 68 D8 
9538- 0D 86 1E AS 9C 85 1F 88 
9538- B1 9B A CB Bi 9B 86 9B 
9548- 85 9C Bi 9B D8 EB A5 1D 
9548- D8 08 AS 1E 85 9B AS 1F 
9558- 85 9C AS 1B 18 86 Eé 1C 
9558- C9 83 F6 35 AS B8 48 A5 
9568- B9 48 A9 88 85 71 A9 02 
9568- 85 72 28 D4 ES 6 18 A9 
9578- 3A 9D 88 82 A9 88 9D 81 
9578- 02 6 85 13 28 6D DS 88 
9580- 88 84 18 A9 FC 85 19 A9 
9588- 81 85 14 68 85 B9 68 85 
9598- 88 A5 9B 18 65 1C 85 71 
9598- AS 9C 69 80 85 72 A4 18 
95A8- A9 88 91 71 A5 18 Aé 19 
95A8- A4 1A 28 E2 ES A9 61 28 
95B0- F3 ES A5 71 91 9B 18 69 
95B8- 02 85 AF C8 A5 72 91 9B 
95C8- 69 08 85 B8 C8 Bi 1E 18 
95C8- 65 1D 91 98 C8 Bi 1E 69 
95D8- 88 91 9B A5 1B 18 83 C8 
95D8- 91 9B A9 88 A8 91 71 C8 
95E8- 91 71 68 

| SERRE 
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Un programme de test universel 


En écrivant le programme TEST, 
j'avais en vue un programme de test 
général qui utiliserait des données 
interchangeables, et serait de préfé- 
rence très court, puisque ce pro- 
gramme serait la partie commune à 
tous les programmes de test que l’on 
voudrait réaliser, et serait donc 
stocké en de multiples exemplaires. 


Il permet de créer des tests dans tout 
domaine à votre convenance ; il est 
en outre général au niveau du 
système, car il ne nécessite aucune 
configuration spécifique, grâce au 
générateur de lignes qui « auto- 
écrira » les données sous forme de 
DATA. 


Un examinateur patient 


TEST est un programme simple qui 
vous pose des questions sur un sujet 
donné, de façon exhaustive ou aléa- 
toire, et vous fournit la bonne 
réponse. Quand vous avez sélec- 
tionné un chapitre et un mode 
d'interrogation, il présente la ques- 
tion tandis que la réponse se trouve 
sous un cache. Puis, lorsque vous 
avez donné votre réponse, ou sim- 
plement appuyé sur RETURN, le 
cache disparaît pour laisser apparaî- 
tre la bonne réponse. 


Le CURSEUR INVERSE, pro- 
gramme en langage machine qui se 
trouve sous forme de lignes de 
DATA, permet de réaliser le cache. 
Ainsi d’ailleurs que la présentation 
du programme, notamment le cadre 
du sommaire et la page de titre. On 
peut faire énormément de choses 
avec le CURSEUR INVERSE ; c'est 
pourquoi je l’ai écrit sous forme relo- 
geable et compatible avec d’autres 
routines binaires. Comme il utilise 
l’ampersand, il y aurait eu appro- 
priation de celui-ci par la deuxième 
routine chargée sur la première si 
elle l’avait également utilisé ! Ce pro- 
blème a une solution, que je vous 
propose plus loin. 


Les données que vous avez fournies 
seront rajoutées automatiquement à 
la fin du programme de test, à partir 
de la ligne 20000, sur des lignes de 
DATA. 


Pour créer un test différent, il suffit 
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de supprimer les lignes 20010 et sui- 
vantes, et de placer DATA END à la 
ligne 20000. Les titres des chapitres 
sont la seule chose que l'on ajoute 
« à la main » sur le programme. Les 
lignes 100 et suivantes sont réser- 
vées à cet effet et affectées aux varia- 
bles B$(1). B$(2)... A la ligne 100. 
le nom du programme affecté à la 
variable F$ peut aussi étre changé 
pour prendre le nom du test créé. 


Un programme 
cybernétique 


Plutôt que de recourir au pro- 
gramme hiérarchisé classique avec 
un menu principal auquel on revient 
pour avoir accès à chaque section, 
on utilise une approche systémique 
permettant d'appeler le sommaire à 
partir de n'importe quel endroit. 
Lorsque le numéro du chapitre est 
demandé, appuyer sur « S>» fait 
apparaître le sommaire : la question 
est ensuite posée de nouveau et on 
indique alors le numéro de l'option 
souhaitée. Les options « cherche » 
et « numéro ligne » ne figurent pas 
au menu. On les appelle de 
n'importe quel point du programme, 
ainsi que chacune des autres fonc- 
tions. La description de chacune de 
ces procédures suit. 


PROCEDURE DE TEST. Présenta- 
tion en 3000, option test complet en 
6000, test aléatoire en 4000. La 
ligne 4097 stocke les numéros de 
ligne de chaque question posée et 
teste si le numéro généré aléatoire- 
ment figure dans la liste ; ainsi, lors 
du test aléatoire, une question n'est 
jamais posée deux fois. 


AJOUTE commence en 5000. Les 
données sont stockées sur deux 
lignes de DATA, la première conte- 
nant le numéro de chapitre et la 
question, la seconde la réponse. 


ARRET débute en ligne 8000. On 
teste à la ligne 8000 le drapeau DR 
positionné à 1 pour indiquer que des 
données ont été entrées et sauvegar- 
der, le cas échéant, le programme. 


CHERCHE et NUMERO DE LIGNE 
se partagent le même sous- 
programme à partir de 2000, en 
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fonction de À, la variable réservée 
aux numéros d'options. 


Problèmes d’interfaçage 


Comment utiliser simultanément 
plusieurs routines avant pour vec- 
teur l'ampersand ? La solution que 
j'ai adoptée dans la routine 
INVERSE consiste à sauter à 
l’adresse indiquée en 6-7 si l’amper- 
sand est suivi d'un code autre que 
INVERSE, par exemple ici RES- 
TORE, DATA, DEF, etc... On place 
donc en 6-7 l'adresse du début de la 
seconde routine, augmentée du 
nombre des octets (inutilisés dans ce 
cas) qui précèdent les tests de 
syntaxe dans celle-ci, soit. dans le 
cas du générateur, 29 octets pour la 
partie initialisation. 


USR pourrait encore être utilisé pour 
une troisième routine, les positions 
$A-$B-$C n'étant pas utilisées. 


Conclusion 


J'espère que ce programme vous 
aidera à contrôler vos connaissances 
dans un domaine, ou à les vérifier 
avant un examen, de façon facile et 
rapide. Il y a bien sûr la nécessité de 
rentrer en différé les questions et 
réponses, mais cet exercice peut 
s'avérer utile pour mieux compren- 
dre un texte. 


En fait, il appelle (je crois) un pro- 
gramme complémentaire, qui 
apprendrait aulieu de tester, et fonc- 
tionnerait selon le principe de 
l'enseignement programmé... 
d’ignore si un tel programme existe. 
Jd'essaierai d'en écrire une version à 
l'occasion. 


Liste des variables réservées 
À = numéro d'option 

A$() = libellé des fonctions 

B = hauteur sonore ou divers 

B$0 = titres des chapitres 

C = durée du son ou divers 

DR = signale si des données ont été 
ajoutées 

F$ = nom du programme 

N% = nombre de questions 

R% = indice du tableau enregis- 
trant les lignes lors du test aléatoire. 
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68 PRINT "BRUN GENERATEUR"* 

1 HIMEM: 386847: REM SOUSTRAIRE 16384 PO 
UR 32K 

3 LOMEM: PEEK (115) + PEEK (116) * 25 
6 - 1888 

4 REM PLACE EN 6-7 L'ADRESSE DE LA PROC 
EDURE OÙ DOIT POINTER 1‘ AMPERSAND 
LORSQU'IL EST SUIVI D'UN CODE DJ] 
FFERENT DE CELUI D‘INVERSE 

5 N = 38648 + 29: POKE 7,N / 256: POKE 6 
3N — PEEK (72 x 256 

é B= 8:C = N:I = N:J=N 

7 GOSUB 13888: GOSUB 188: GOTO 9888 

9 REM ROUTINES FREQUENTES 

11 POKE - 16368,8: RETURN 

12 PRINT TABC 18) "OPTION "A$<CA) : RETUR 
N 

13 B = PEEK Ç - 16384) : RETURN 

14 FOR J = 1 TO 588: NEXT : RETURN 

15 N = PEEK (123) + PEEK (124) %# 256: 
RETURN 

ié POKE 773,B: POKE 774,0: CALL 778: RE 
TURN 

17 N = 6: &k RESTORE 28888: PRINT "ATTEN 
DEZ..." 

18 READ AS: IF ÀA$ < 2 C$ AND 48 < 2 ” 
FIN" THEN N = N + 1: GOTO 18 

19 RETURN 

28 PRINT "CHAPITRE #°3;: CALL - 868: 60 
SUB 23 

21 IF C$ = "S*® THEN GOSUB 1888: VTAB 2 
3: GOTO 28 

22 RETURN 

23 & INPUT C$: IF C$ = “" THEN POP 

24 RETURN 

25 GOSUB 13: IF B = 155 THEN POP 

26 RETURN 

27 GOSUB ji1: HAIT - 16384,128: GOSUB 1 
3: IF B = 141 OR B = 168 THEN GO 
SUB 11: RETURN 

28 POP : GOTO 18458 

38 POKE 32,4: POKE 33,38: POKE 34,5: PR 
INT : RETURN 

48 &  INVERSE 5,38,6,3: RETURN 

58 INVERSE 

S2 VTAB 5: HFAB 6: PRINT "QUESTION" 

56 VTAB Ii: HTAB 7: PRINT "REPONSE EXAC 
TE" 

57 NORMAL : RETURN 

68 À = PEEK (36): PRINT A$C1): &  INVER 
SE À + 1,1, PEEK (372,1: PRINT : 
RETURN 

B8 VUTAB 1: HTAB 18: GOTE 28 

98 VUTAB 4: CALL - 958: GOSUB 58: UVTAB 
19: PRINT “VOTRE REPONSE" :B = 68: 
C = 38: GOSUB 16 

91 GOSUB 38: VTAB 6: PRINT BS$: TEXT : G 
OSUB 48: &  INVERSE 1,48,12,5 

92 VTAB 28: & INPUT E$ 

94 & INVERSE 1,48,12,5: VTAB 12: PRINT 
A$ 

95 GOTO 27 

96 HOME 

97 PRINT ‘FIN DE DONNEES": GOTO 27 

99 REM VOS VARIABLES 

188 F$ = "TEST" 

118 B$C1) = "PROGRAMMATION" 

128 B$(2> = "FICHIERS" 

121 B$(3) = "TABLES ET TABLEAUX" 

122 8#(4) = "STRUCTURE DE DONNEES" 

123 B$(S5) = “PROGRMB@UATION STRUCTUREE" 


124 8$(6) = "MODELES:FONCTIONS COURANTES 
125 8$(7> = "MODELES :METHODOLOGIE”* 
126 8$(8) = "ALGORITIMIQUE" 
138 RETURN 
998 REM SOMMAIRE 
1888 1 = 8 
1848 TEXT : HOME 
1845 PRINT : PRINT ÀA${3) ,F# 
1847 VTAB 5 
1858 1 = 1 + 1 
1868 IF 8$(1r = “* THEN 1118 
1878 IF PEEK (37) > 26 THEN PRINT "AP 
PUYEZ SUR UNE TOUCHE" ;: GOSUB 111 
68:1 = I - 1: GOTO 1848 
1888 PRINT TAB 4) MIDS (R$,I1 # 5 - 4, 
S) ; 
1898 PRINT “. "8$C1)2: PRINT 
1188 GOTO 1858 
1118 & INVERSE 1,9,1,3: & INVERSE 18, 
31,4,28 
1115 & INVERSE 11,29,5,18: &  INVERSE 
2,7,5,18 
1126 8 = 88:C = 48: GOSUS 14 
1138 GOTO 27 
1998 REM RECHERCHE/NUM LIGNE 
2888 HGtAE : GOSUB 12: VTAB 4: PRINT “QU 
ESTION:";: GOSUS 23 
2818 GOSUB 17: IF ÀA$ = "FIN" THEN GOSU 
B 97: GOTO 26888 
2813 IF À = 7 THEN PRINT “LIGNE: ": GO 
SUB 15: PRINT N: GOTO 27 
28268 READ A$: GOSUB 98: GOTO 26888 
2998 REM QUESTION 
38688 VUTAB 21 
3818 PRINT "1. SUR TOUT" 
3828 PRINT “2. AU HASARD" 
3838 GET A$S:N = VAL (AS) 
38648 GOSUB 28: TEXT : HOME 
3845 GOSUB 12: HTAB 168: PRINT “CHAPITRE 
";Cc$ 
3847 &  INVERSE 9,22,1,3 
3868 VUTAB 1: HTAB 1: PRINT “ESC POUR" : 
PRINT "QUITTER" 
3188 ON N GOTO 6888 ,4888 
3498 RETURN 
39986 REM TEST ALEATOIRE 
48868 IF NOT NZ THEN RETURN 
4818 RZ = 8 
4848 GOSUB Ii 
48586 N = INT € RND (1) *X NZ X 2) + 1 
48068 % RESTORE N *# 18 + 19998 
4878 READ À$: IF À$ = "FIN® THEN 4858 
4886 GOSUB 25 
4898 IF AS < > C$ THEN 4878 
4892 GOSUB 15 
4895 FOR 1 = @ TO RZ: IF N = RZC1) THEN 
4858 
4897 NEXT I:RZCI) = N:RZ = CI © S1) *# 1 
4188 READ 8$: READ AS 
4126 GOSUB 98: GOTO 4858 
4998 REM AJOUTE 
5888 IF PEEK (175) + PEEK (176) * 256 
> © PEEK (185) + PEEK (184) x 2 
56 —- 239) THEN PRINT "MEMOIRE SA 
TUREE" : GOTO 168 
5858 HOME : GOSUB 12: PRINT " “NZ* QUES 
TIONS" 
5855 GOSUB 58 
5868 UVTAB 12 
5864 & INPUT 8$: 1F 8$ = "" THEN RETU 
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9865 
5978 
9888 
9898 


5188 
5182 
9185 
5187 
9 118 
92168 
5498 
9998 
6888 
6818 
6815 
6828 
6838 
6848 
6998 
7888 
7818 
7828 
78368 


7848 


7845 
7847 


7858 


7490 
8868 
8085 


8818 
B638 
8288 


98688 
9818 


9828 
9858 
7868 
9878 
9998 


RN 
GOSUB 38 
VTAB 6: & INPUT ÀA$ 
TEXT : GOSUB 88 
CS = C$ + “ ," + 
CHRS (34) 
& POP DATA C$ 
B$S = CHR$ (34) + B$ + 
& DATA B$ 
DR = 1:A$ = "FIN" 
& DATA À$ 
NZ = NX + 1 
GOTO 5858 
REM TEST EXHAUSTIF 
&  RESTORE 28888 
READ AS: IF ÀA$ = "FIN" 
GOSUB 25 
IF AS < 
READ 865$ : 
GOSUB 98: 
INSTR. 
HOME 
GOSUB 12: UTAB 5 
POKE 32,8: PRINT 
PRINT "R — RECHERCHE UNE QUESTION" 
: PRINT 
PRINT *S — QUAND LE CHAPITRE EST "* 
>” DEMANDE ,AFFICHE LE SOMMAIRE": P 
RINT 
PRINT *“L —- NUMERO DE LIGNE D’UNE", 
"QUESTION": PRINT 
PRINT "ESC — ARRETE LA PROCEDURE", 
"EN COURS": PRINT 
PRINT “ LE NOM DU PROGRAMME ET LES 
*,"CHAPITRES SONT MIS AUX LIGNES" 
5”198 ET SUIVANTES" 
TEXT : GOTO 27 
IF NOT DR THEN 8288 
PRINT “NOM DU PROGRMME : 


CHR$ (34) + AS + 


CHR$& (34) 


THEN 9é 
> C$ THEN 6818 


READ AS 
GGTO 6818 


“"sF$3:: PR 


INT * OK?";: GET AS: IF À$ = "N" 
THEN HTAB 19: CALL - 868: INPUT 
F$ 
D$ = CHR$ (4) 
PRINT 08"SAVE"FS$ 
TEXT : HOME : PRINT "AU REVGIR!"°: 
END 
NS = "TASIQRL': REM INITIALES 
R$ = "* I II III IV V V 


3 VII VIII IX X XI XII X 
111 XIV XV XVI XVIIXVIII XIX 
2X  2XI XXIIIXIII XIV XV 2X 
VIXXVUIXUIII DJXIX  XXX° 
DIM RZ(568) 
GOSUB 17 
N = N / 3 
HOME 
REM MENU 


18888 
18885 
18816 
18828 
18838 
18848 
18858 
18868 
18876 
188868 
18188 


182688 
18458 
18588 
18518 


18528 
18538 


18688 
11998 
12888 
12885 
12818 
12826 


12838 
12848 
12865 
12866 
12875 
12888 
13888 
13838 


13848 
13850 
13868 
13878 
13888 


13898 


13188 
17888 


28888 





TEXT : HOME 

PRINT ,,:,:5F$%,53"PAR D. SUREAU" 

VTAB 16 
AS (1) 
AS (2) 
A$(3) 
A$(4) 
A$(5) 
A$(é) 


"TEST“ 

“AJOUTE” 

"SOMMAIRE" 

" INSTRUCT IONS"* 

“QUITTE & SAUVEGARDE “ 

* RECHERCHE" 

A$(7) = "LIGNE" 
FOR 1 = 1 TO S: 
GOSUB 68: NEXT 
GOSUB 12888 
GET A$ 
FOR À = 
IF MID$S CNS,A,1) < 
EXT : GOTO 18888 
IF À < D 1 THEN TEXT : HOME 
ON À GOSUB 3888,5880 ,1888,7888,88 
88,2888,2888 
GOTO 18888 
REM LOGO 
GOSUB 11 
FOR 1 = 1 TO 28 

JS = INT (1/7 2 
&  INVERSE 21 - 1,1 X 2,11 - J,J 
x 2 
NEXT 
GOSUB 14: 
GOSUB 13 
IF B > 128 THEN RETURN 

B = 38:C = 18: GOSUB 16 
GOTO 12848 
REM SON & INUERSE 
FOR 1 = 778 TO 983: 

NEXT 

799: REM INIT. INVERSE 
173,48,192,136,288,5,286 

6,3,240,9,282,288,245, 174 

5,3,76,18,3,96 

DATA 32,88,255,186,282,189,0,1,2 

4,185,27,141,246,3,232,189,0,1,18 

5,0,141,247,3,169,76,141,245,3,96 

,281,158,248,3,188,6,0,168,8,152, 

72,32,245,238,184,168,282,150,24, 

288,192,4,144,241,165,26, 133,37,5 

6,181,27,133 

DATA 27,165,24,56,181,25,133,25, 
198,37,230,37,32,34,252,165,37 ,19 

7,27,144,1,96,164,24,177,48,48,4, 

9,128,288,2,41,63,145,48,288,196, 
25,144,239,176,223,255,8 

RETURN 

REM 

COPYRIGHT (C) 

DENIS SUREAU 

DATA FIN 


HTAB 22 - 1 * 2: 


1 TO LEN (NS) 
> À$ THEN N 


GOSUB 14 


READ B: POKE 


XX TE ST xx 
1982 


Message aux créateurs de logiciel 


Nous allons bientôt commercialiser des programmes en plus de la revue Pom’s, la rémunération des auteurs 
s’effectuant selon le principe des droits d'auteur. 


Bien entendu, les programmes destinés à ce mode de distribution doivent être des produits finis, autant par la 


qualité des programmes que par celle de la documentation et par l’environnement visuel et sonore. 


Nous sommes prêts à analyser vos propositions et à vous aider à transformer des idées en produits logiciels. 
Envoyez-nous vos contributions ; nous vous aiderons à diffuser ces programmes. 
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Datalite 


DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 





? Datalife 


- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4”. 
- 5 V4!’ en 48 et 96 TPI, simple et double face. 


Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 














Visicalc et traitement de texte 


de tiens à remercier ici Judith Ker- 
tesz, une de nos fidèles lectrices, qui 
nous a donné l’idée de cet article en 
nous montrant comment mettre des 
minuscules dans un tableau Visicalc. 


Visicalc avec 
des minuscules 


Ceux d’entre nous qui travaillent 
avec un Apple il Plus sans la ROM 
minuscules regrettent parfois de ne 
pouvoir les utiliser dans Visicalc. En 
fait, cela peut se faire sans difficulté, 
quoique l'effort ne soit pas justifié 
pour un tableau d'usage peu fré- 
quent. Par contre, un tableau à 
usage multiples, servant à l’élabora- 
tion de factures par exemple, est 
plus satisfaisant s'il peut exploiter les 
minuscules de l'imprimante. 


Le principe est relativement simple. 
Le fichier Visicalc est un fichier 
TEXT que l'on peut modifier à l’aide 
d'un programme de traitement de 
texte. La procédure est par consé- 
quent la suivante : 


1) Créer le tableau souhaité avec 
Visicalc 

2) Sauvegarder le fichier correspon- 
dant avec {/SSFACTURE!| (ou tout 
autre nom que « FACTURE »)} 
Comme dans le livre « Visicalc sur 
Apple », nous mettons entre cro- 
chets les textes à entrer au clavier 
pour Visicalc. 

3) Lire en traitement de texte le 
fichier FACTURE 

4) Remplacer en mode édition les 
majuscules par les minuscules sou- 
haitées 

5) Sauvegarde le fichier sous un 
nom qui nous rappelle la présence 
des minuscules, par exemple 
FACT.MIN 
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Quand on souhaite imprimer une 
facture, il suffit de faire 
[/SLFACT.MIN] en Visicalc, d'y 
ajouter les informations propres à la 
facture considérée, puis de lancer 
son impression. Quand Visicalc lit 
des minuscules, il fait apparaître à 
l'écran les majuscules correspondan- 
tes. C’est uniquement à l'impression 
(ou avec les lettres accentuées) que 
l'on voit qu'il y a effectivement des 
minuscules aux endroits nécessaires. 


Les utilisateurs d'Apple ile pourront 
aussi constater que le programme 
Visicalc fait apparaître des majuscu- 
les à l'écran, bien que les minuscules 
existent avec ce matériel. 


Bien entendu, si l’on veut éviter de 
perdre du temps en pratiquant ainsi 
le va-et-vient entre Visicalc et le pro- 
gramme de traitement de texte, il 
faut se contenter de majuscules pour 
les informations relatives à chaque 
facture spécifique. 


Cette façon de travailler suppose 
que votre programme de traitement 
de texte sache lire des fichiers texte. 
Il n’y aura pas de problème si vous 
travaillez avec Applewriter il, Magic 
Window ou tout autre système utili- 
sant des fichiers TEXT. 


Si par contre vous possédez le célè- 
bre Applewriter |, vous pouvez tout 
de même vous en tirer en utilisant les 
programmes TEXT to Applewriter Î 
et Appelwriter ! to TEXT présentés 
ci-dessous. 


Nous fournissons en réduction un 
exemple de facture réalisée pour 
Pom’s. Le fichier FACT.MIN se 
trouve sur la disquette d'accompa- 
gnement. Le lecteur pourra consta- 
ter sans effort que la solution propo- 


Hervé Thiriez 


sée dans cet article fonctionne sans 
moindre problème. 


Passons maintenant aux program- 
mes de conversion entre un fichier 
TEXT et le programme Applewri- 
ter |. 


TEXT to Applewriter I 


Afin de convertir un fichier TEXT en 
format Applewriter I, il suffit d’exé- 
cuter le programme suivant. Outre 
son intérêt pour l’utilisation liée à 
Visicalc, ce programme permet 
d'exploiter les possibilités d'Applew- 
riter avec tout fichier TEXT, en parti- 
culier pour l'édition de fichiers 
EXEC. 


Une autre application de ce pre- 
gramme de converssion consiste, 
après avoir effectué avec [/PF-E36 
RETURN FACTURE] la sauvegarde 
du tableau à imprimer (et non plus 
de la description du tableau), à le 
convertir en format Applewriter. Le 
tableau Visicalc peut alors être inté- 
gré avec CTRL-l dans un rapport 
édité en Applewriter. 


Notre but se limite ici à vous fournir 
un bon outil de travail Nous ne 
commenterons donc pas le mode de 
fonctionnement de ce programme. 
Nous laissons le lecteur exercer sa 
sagacité dans cette analyse. 


Applewriter I to TEXT 


Ce programme, à l'opposé, trans- 
forme un fichier Applewriter quel- 
conque en fichier TEXT. On peut 
ainsi créer un fichier EXEC en traite- 
ment de texte, et le convertir grâce à 
ce programme en fichier TEXT. 


sue 


Fexonerr mere) 





PONT Pan mu crées l di 


pos 


Editions MEV 
49; rue Lamartine 
78000 Versailles 





Facture No. 


Date 10/01/83 


Références 


Quantité 





STE, MICROFANA & CIE 


13 RUE DE L'AFFLE 4 


75016 FARIS CEDEX 89 


Frix Uru 


Total HT 


Recueil ae Fon’s 
Fom’s riméros 7 à 10 


Disquettes recueil 
Disquettes NOS 7-10 
Distuette Visicalc 
EFwites 10 Verbatim 
T-Shirts 


114,15 


TVA À 7% 


Total H,T, 
TVA 18,6 X 


ee ere mn 060 ete eus 0 me 


Total TTC 


Total 3 PaYer 000000000000 


Er votre aimable rèalemert à réception 


Editions MEV Bureaux : 59, B° de Glatigny 78000 - Versailles & (3) 918-13-07 


mes tte mans onto oute 08e out mn me 


£40,00 


126.48 
147,55 
63,24 
400,00 
168,63 
905.90 
168, 50 


mes mous 006 ete eute 00e 408 + dudd imee 


1074,40 


1314,40 


de facture 


SARL au capital de 20 000 F — RCS Versailles B 322 815 317 — SIRET 322 815 317 00019 
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TEXT to Applewriter I 


19 REM XxX TEXT TO APPLEWRITER XXx 

28 TEXT : HOME :D$ = CHR$ (4): ONERR 
GOTO 168 

38 DATA 169,1,133,38,169,25,133,31,32, 
12,253, 168 

48 DATA 8,9,128,281,141,248,12,281,168 
,144,241,281 

58 DATA  224,144,2,233,97,105,64,145,3 
60,230,30,288 

68 DATA  227,238,31,288,223: FOR I = 7 
68 TO 888: READ J: POKE I,J: NEXT 


78 HTAB 5: INVERSE : PRINT "CONWERSION 
TEXT ==> APPLEMRITER": NORMAL : UV 
TAB 6: INPUT "FICHIER À TRANSFERE 
R : "3NS: PRINT 
88 A$ = "DU DRIVE : “: GOSUB 138:D1 = D: 
PRINT :A$ = "AU DRIVE : ": GOSUB 
138:D2 = D 
98 PRINT D$"OPEN"N&" ,D'D1: PRINT D$"REA 
D'N$: CALE 768 
188 PRINT D$"CLOSE": POKE 216,8: POKE 6 
488,131 
PEEK (38) + PEEK <31) x 256: P 
OKE D,96: PRINT : PRINT D$"BSAVET 
EXT ."NS" ,A$1988,L"D - 6399" ,D"D2 
128 PRINT : PRINT “TRANSFORMATION TERMI 
NEE ...*: END 
138 PRINT A$;: GET AS: IF A$ € "1" OR À 
$ > *2" THEN 138 
148 D = VAL (AS): PRINT D: RETURN 


18 D = 


Applewriter I to TEXT 


18 REM XXX APPLENRITER TO TEXT XXxx 

286 TEXT : HOME :D$ = CHR$ (43: ONERR 
GOTO 148 

36 PRINT " 3: INVERSE : PRINT “CONVE 
RSION APPLEHRITER =} TEXT®: NORM 
AL 

48 VTAB 4: INPUT "FICHIER APPLEWRITER : 
TEXT.";NS: PRINT : PRINT METTRE 
LA DISQUETTE DANS LE DRIVE 1" 

9580 VTAB 8: PRINT "APPUYER SUR UNE TOUCH 
E POUR CONTINUER": GET À$: PRINT 
: PRINT D$*"BLOADTEXT.°NS$: VTAB 8: 
CALL - 868: PRINT “FICHIER °N$" 
CHARGE ..." 

68 VTAB 168: INPUT “A TRANSFERER SUR QUE 
L DRIVE ? *“;D: IF D < 1 OR D > 2 
THEN 68 

70 PRINT : PRINT "ATTENDEZ LE MESSAGE D 
E BONNE CONCLUSION,LE PROCESSUS E 
ST ASSEZ LONG ...":ADR = 6481: PR 
INT O$"OPEN°"NS" ,D"D: PRINT D$"WRI 
TE°N$ 

80 À = PEEK (ADR) :ADR = ADR + 1 

98 IF À > 223 THEN À = À -— 64 

188 IF À 2 191 THEN À = À + 32 

118 IF À < 32 THEN À = À + 192 

1268 IF À < 64 THEN À = À + 128 

139 IF À = 96 THEN 158 

149 PRINT CHR$& () ;: GOTO 88 

158 PRINT : PRINT DS$"CLOSE": PRINT : PR 


INT “TRANSFORMATION TERMINEE ..," 











Micromos : 


e Disques durs à cartouche amovible sur 
APPLE IH et assimilés. 


e Mono ou multipostes 
e Sous DOS 33 





e De 10 + 10 à 10 + 130 Mo en ligne 
sur un seul slot APPLE I] 


Laboratoire : 17, Plateau de la Ravihnière - 





95520 OSNY - 


Les pionniers des années 80 





e Tous nos produits sont 
compatibles avec l’APPLE //e 


Tél. (3) 032-16-71 - (3) 032-37-78 





D 
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Hello corrigé 


Thierry Le Tallec et Jacques Tran-Van 


Programme HELLO du Pom's n° 6 (page 34) 
Récapitulation corrigée 


DES Ete FTiEne RALLI CTI DIET 


46 


X880.CF0 


988D- 28 2 FB 

0618- 28 58 FC 20 89 FE 28 93 
0818- FE AD 06 93 C9 90 F8 06 
9826- 28 20 FF 4C 08 03 20 51 
0828- A8 A9 D3 8) 88 90 A9 9€ 
0939- 80 61 9D A2 08 46 19 80 
6838- 04 QC 90 A6 SA ES D8 F7 
0B48- A8 SA A9 9B 20 80 78 A2 
0848- 02 84 22 2 58 FC CA 28 
0858- 62 68 A6 8C 69 37 1F FO 
0858- @F 64 90 FB 0B EE 67 8 
8868- 00 03 EE 68 98 28 08 F1 
0B68- 88 DO E9 20 83 C8 AD #1 
0878- E@ AC 01 #8 2C 81 Ca C? 
0678- 4C D 84 C# 28 F8 88 C? 
0888- 26 D6 09 C8 69 D8 85 4C 
OBS9- 03 89 E6 02 A8 EB 84 FB 
8898- AS FB 18 69 23 A8 95 FB 
0898- C9 93 F8 EE A2 0B B181 
G8h8- F8 52 OÙ DE 66 DO E9 C8 
68A8- CA DO F3 A4 FB 98 38 B! 
4868- 01 9D ED 87 68 B1 Of 36 
6889- D? 80 EC B7 80 E4 0B 90 
G4C8- AF 05 EB ES 19 D8 F5 28 
88C3- 6? 98 20 19 0B A4 FC 4? 
00D6- 2F 24 71 98 24 3E 78 84 
6808- @E 84 10 A2 38 84 0F 49 
02€ 0- 08 8 11 B1 6E 91 18 C8 
G0E6- D6 F9 64 6F E4 11 CA D8 
8Fe- F2 20 58 FC A9 18 85 02 
08FB- DE 69 À5 06 1B 69 23 % 
0908- 04 Ed 02 A9 0B A8 34 04 
0ÿ68- AS 08 C? 28 98 03 4 SF 
8918- 09 C9 14 DA 0B 85 28 85 
0918- 21 28 58 FC A4 06 ÀS 68 
0928- GA 6A AA B1 81 38 03 FQ 
0928- 68 90 08 96 Eé 88 CB AS 
0938- 02 6A 8A 8A 6A 11 81 9D 
0939- 01 94 CB 98 90 03 96 À? 
0948- FF 85 03 B1 01 38 84 46 
0948- 03 44 03 29 7F 9D 02 % 
0950- A2 07 6A 6A B6 03 CA DO 
0958- FA BD 45 0B 25 63 28 87 
0948- 99 AS 68 C9 1B B8 02 69 
0968- 20 69 94 20 87 09 A2 6F 
0978- C8 B1 81 C9 A8 88 84 C9 
0978- 86 B8 F5 29 ED FD CA D@ 
0988- EF 29 GE FD 4C FA 8B 28 
6989- ED FD 49 AD 4C £D FD 28 
0998- 2F FB AG 0F 84 24 A9 08 
@99B- 85 07 28 5B FB 8? AC 0B 
98-99 FF 63 08 D F7 98 AE 


89n8- F6 B7 28 24 ED 28 SC FC 
8969- A9 15 85 24 À 67 98 AD 
d9B8- 68 96 28 24 ED A8 8F B9 
69C3- BC 68 99 18 64 88 18 F7 
gges- 28 2 FB A9 60 85 24 2 
8908- 9C FC A2 A AD B9 98 C9 
890B- 6F DO 62 A2 66 8€ 00 07 
49E8- A9 60 69 CB 0B 99 CF 87 
89E8- 68 DO F7 46 84 46 83 29 
89F8- AC FD C9 A4 DB 93 4C 9 
89FB- 9B C9 AA DA OC A9 65 48 
eAGE- FF 90 89 9B 8C 8B 98 DA 
8A89- 86 C9 OD D8 06 A? EF 4 
BA18- 9D DO EE C9 95 DS 8B 4 
dA18- 02 9D EA B7 80 68 MA 4C 
8A28- 00 03 C9 88 D8 64 A9 61 
GA28- DS EF C9 98 08 89 85 07 
8n3%6- A9 FF D DD 47 D8 B4 C9 
8ASE- EC DO 49 85 83 29 7 80 
&A48- DO 97 DO AB C9 84 DA 66 
8e48- 85 84 46 03 18 EF C9 AF 
8A58- FO 96 C9 DS 98 99 C9 DB 
BASS B8 95 C9 C1 90 02 E9 2 
8AGB- E9 95 CS 86 BB 99 GA @A 
BA6B- A BC 68 96 BD 81 96 48 
6478- 29 9F 28 FO GE 68 4 4 
dA7B- 4 44 89 18 85 02 BD 02 
sa98- 96 85 QC BD 03 94 85 81 
8A8S- A8 LE B1 91 99 DC 07 99 
8496-74 A BB DA F5 24 83 18 
tA98- 26 20 B7 GA BS A1 49 88 
BAnB- 91 81 A2 82 28 62 0B 4C 
dhAS- 0) 88 29 58 FC A2 Gé 28 
BASG- 94 B 28 EC FD 36 F8 24 
eRBe- IE 19 éA A2 04 08 % 24 
BACB- 04 18 1D 20 67 8A B3 1 
8ACS- 18 84 A2 6A DB 38 A9 75 
&nD8- 8D C3 85 A9 AA 8D C4 85 
#ADG- A2 05 28 94 0B 4C 6D 68 
@AEB- AS @C DS 83 4C Cé AS C9 
8AEB- 64 F8 38 99 64 A2 ED D8 
&EB- 60 C9 02 F8 31 A9 20 24 
S8- 82 AS F8 M A2 01 E6 64 
8B6- 88 28 DO FB 28 80 FE 20 
eR8S- 02 A7 29 84 FE 28 $C FC 
8B16- 20 6C FD 28 FA 91 4C 8F 
8B16- 89 20 E3 83 28 ES B7 9 
8829- 94 A2 08 DO D9 48 28 69 
8828-98 24 19 8B AD Gi 97 80 
0839- 90 98 A8 F8 17 AD 02 97 
8038-20 FD 0B EE Fi B7 28 19 
8B4B- 0B A4 88 H9 OC 98 99 88 
eB48- 98 CS D F7 AC 0C 97 AD 
8858-40 97 28 FD 88 A4 88 A9 


@858- 96 28 7j 98 28 19 8B 4C 
OB6B- A6 JA GE F4 B7 94 JE 6 
9B68- 06 9€ EB 87 94 86 94 @1 
8870- A9 18 85 02 28 71 9B 
6878- @F A8 11 28 FO 6 28 19 
OB8a- 68 EE F1 B7 CE ED 67 18 
6888- F5 AD ED C8 AD EE CE 10 
0B98- 02 85 jE 68 SE BB PS A9 
0878- 96 80 C1 85 AD 68 A 8D 
ggag- CO BS 4C Dé 03 AE BE DD 
GBAS- AA D3 D2 DD AA 2D 25 18 
68B6- OF 60 27 13 20 20 A6 48 
@888- D6 CF LC AE AB D3 CS €3 
8EC8- D4 C5 DS D2 D3 48 CE C9? 
SBC8- C2 02 ©5 D3 16 6F 14 12 
e8D6- 05 28 03 8 6F 09 18 4 
8BD6- 8h A0 A8 AB £3 C9 D3 CI 
GBEG- C2 D4 CE C9 48 C3 C8 Ci 
OBES- D2 C7 CS CD {5 CE DA 4 
68F8- C4 CS A8 CC A7 C9 CE D4 
OBF8- CS C? CS D2 À? 8C EC 67 
eC38- 9D ED 87 68 45 6€ 4 86 
QCOB- 5B 4 B8 38 AD 86 96 S 
@C18- 04 E9 03 3 AD 01 96 85 
0C18- 05 E9 08 28 71 98 2 & 
C28- 9B 28 76 98 18 13 ñ6 84 
0C28- A4 @5 28 96 FU AE 02 94 
6C3- AD 03 76 28 41 F$ 4C BF 
QC38- 90 4C 04 68 4D 06 96 85 
8C48- AF 6S 67 AD O1 96 6908 
OC48- 85 B6 85 éà A9 FF AB A9 
QC59- 07 28 71 98 28 3 98 85 
6C58- 08 80 08 08 28 78 98 38 
@C68- DS 40 66 DS A9 68 SD E7 
ÔC63- 9D 28 FE AS 49 6C 80 E7 
4C78- 9D 28 60 FO 20 D4 A7 8 
QC?B- ED 86 96 85 CA A9 Ÿ4 ED 
2C89- 61 96 85 CB 38 AS CA E9 
8C33- 02 A8 à5 CB E9 00 28 71 
C98- 9B 28 3€ 98 28 78 78 38 
eC?8- 90 4 EC EF A8 8€ 61 01 
d0M- FO 28 40 & 87 CB B1 01 
6CAS- 8D ED B7 84 86 A8 E8 A9 
OCB8- 67 29 85 B7 B6 42 A4 06 
OCB9- CB D6 02 E6 02 £E Fi 67 
QCC8- D£ DC 4C 58 A7 08 08 A8 
eCCB- 00 84 01 A9 9? 8 02 & 
6C08- FO B7 8D F1 87 68 28 O4 
6CD8- A7 85 48 AP 16 26 S FC 
SCE8- 26 1A FC 28 SE FD 44 BF 
GCES- A9 90 8C F2 63 8D F3 03 
QCFa- 49 AS 60 F4 03 24 07 68 
QCF8- 28 78 9B 4C 8F 90 
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Gestion de masques en BASIC 


Pour commencer, rendons à César 
ce qui lui appartient ! Les routines 
présentées ci-après s’inspirent 
largement des principes développés 
pour la gestion des masques 
d’entrée/sortie de la carte 
MEM/DOS 6 502. Elles ne préten- 
dent pas toutefois, c’est évident, 
atteindre le même niveau de perfor- 
mance, tant en ce qui concerne la 
facilité d'utilisation (gestion conjointe 
des masques et des variables), que le 
stockage sur disque (recodage des 
informations) ou la rapidité d'accès 
(stockage des masques en mémoire 
RAM après leur ouverture...). 


Notre ambition se borne à vous offrir 
un utilitaire qui, combiné avec la 
routine d’'INPUT publiée dans le 
numéro 6 de Pom's, vous permette 
de réaliser une gestion d'écran plus 
souple et plus complète que par les 
seules instructions du BASIC. 


Routine de gestion de 
masques 


Le principe consiste à « dessiner » le 
masque directement sur l'écran, puis 
à sauver la page TEXT correspon- 
dante pour un chargement ultérieur 
à partir de vos programmes. Le pro- 
gramme Applesoft GESMASK vous 
permet, dans les traitements CREA- 
TION et MODIFICATION, de réali- 
ser ces « mise en pages ». Quelques 
touches de fonction ont été prévues 
pour faciliter ce travail : 


e Déplacement vers la droite ou la 
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gauche sans affecter le contenu de 
l'écran par les touches « æ» et 
« —— ». 

e Déplacement vers le 
RETURN. 

e Déplacement vers le haut par 
CTRL-R. 

e Passage en mode INVERSE par 
CTRL.. 

e Passage en mode NORMAL par 
CTRL-N. 

e Décalage de tout l'écran vers la 
droite à partir d’un point donné par 
CTRL-D. 

e Décalage de tout l'écran vers la 
gauche à partir d’un point donné par 
CTRL-G. 

e Répétition verticale d’un caractère 
par CTRL-V (il faut se placer sur le 
caractère concerné, puis faire 
CTRL-V). 

e La touche REPT conserve sa fonc- 
tion habituelle. 

e La touche ESC permet de valider 
l'écran et de le sauver sur disquette 
(ou de revenir au menu en cas de 
consultation). 


bas par 


Vous constaterez rapidement qu'il 
est plus agréable de réaliser par ce 
moyen des écrans complexes ou 
« esthétiques » que d'utiliser une 
suite d'instructions BASIC telles que 
VTAB, HTAB et autres PRINT... 


De plus, si vous perdez de la place 
sur disquette (chaque écran occupe 
6 secteurs), vous en économiserez 
en mémoire centrale, l’encombre- 
ment de vos programmes étant 
réduit. 


Gérard Michel 


Hard-Copy TEXT 


Cette routine +« standard » vous per- 
mettra : 

° d'imprimer vos masques afin de 
repérer l'endroit où seront position- 
nées les variables (paramètres H 
et V qu'il faut fournir à la routine 
d'INPUT}. 

e d'imprimer des écrans à partir de 
vos programmes après consultation 
(voir le programme Applesoft 
MASK.DEMO). 


Impression paramétrée 


Pour éditer sur imprimante des don- 
nées sous une forme quelque peu 
présentable, il faut bien souvent 
commencer par définir un tableau à 
la main. |] faut ensuite jongler avec 
les SPC, LEFTS$... à l’intérieur du 
programme BASIC pour retrouver 
le tableau voulu sur l'imprimante. 


La solution proposée ici consiste, 
une fois encore, à dessiner le tableau 
sur l'écran pour le reproduire ensuite 
sur papier. Les masques correspon- 
dants peuvent être créés par GES- 
MASK. 

Chaque ligne d'impression est repé- 
rée par deux caractères de « con- 
trèle » identiques entre lesquels elle 
doit se trouver. Ces caractères peu- 
vent être n'importe quelle lettre de A 
à Z affichée en INVERSE sur l'écran 
(ceci impose de ne pas mettre de let- 
tres en INVERSE dans les lignes à 
imprimer). Deux lignes différentes 
doivent en outre comporter des 


OLIVETTI PRAXIS 
AVECINTERFACE APPLE 


écrire. 


5400 F ht. 


L'imprimante qui est aussi une machine à 


Marguerites interchangeables. 


TOTALE FORMATION 


H4, ovenue Chorles-de-Goulle 92208 Neuilly - Tél, 745.62.73. 
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caractères de contrôle différents. Le 
programme MASKDEMO fournit 
une illustration de ce type de traite- 
ment (si votre interface/imprimante 
réalise une impression simultanée à 
l’écran, rajoutez PRINT CHRS (9) 


programme). 


Programme GESMASK 


189 HIMEM: 37349 
28 D$ — CHR$ (4):D1$ = CHR$ (13) + DS: 
PRINT D$*BLOAD INPUT.0BJ": PRINT 
D$"BLOAD MASKIN.0BJ": PRINT D$'B 
LOAD HCT.0BJ" 
38 ONERR GOTO 9988 
48 GOTO 388 
76 UTAB 22: HTAB 1: INVERSE : PRINT 2M$ 
5: NORMAL : INPUT * ? “:;2$: UTAB 
22: CALL - 868:2$ = LEFTS (29,1 
D: IF 2$ = "DO" OR 2$ = “N° THEN 
RETURN 
71 GOTO 78 
89 REM 
98 REM ROUTINE D’INPUT 
188 REM 
149 UTAB VU: HTAB H: PRINT LEFTS$ (PO#,L 
O0)" ‘3: UTAB LV: HTAB H: IF ME = 
2 OR X = 1 THEN PRINT 2Y$(LL): 1 
F 84 = 8 THEN 168 
158 UTAB LV: POKE 8,TY: POKE 36,H - 1: P 
OKE 7,L0: CALL 37358 
154 LC = PEEK (9):E = PEEK (6): IF E = 
9 THEN RETURN 
156 22$% = "": PRINT SPCC LO - LO: IF L 
C = 8 THEN 168 
158 FOR 22 = 1 TO LC:2 = PEEK (784 + 2 
2) - 128:22$ = 228$ + CHR$ (22: N 
EXT 
162 IF TY < 3 THEN RETURN 
163 IF MIDS (22$,2,1) = */* THEN 2Z2$ = 
"p" + 22$ 
164 IF MID$ (22$,5,1) = "/" THEN 22$ = 
LEFTS (22$,3) + "8" + RIGHTS « 
228,4) 
165 IF LEN (228) < > 8 THEN 2$ = MES 
3): GOSUB 198: GOTO 149 
1éé 24 = VAL € MID$ (22$,4,23)2: IF VAL 
€ LEFT$ (22$,23) > 31 OR Z4 > 12 
OR Z4 X VAL € RIGHTS (228,2) < 
= 8 THEN 2$ = MES$(3): GOSUB 199 
: GOTO 149 
167 RETURN | 
168 IF ME = 2 OR X = 1 THEN VTAB V: HT 
AB H:22$ = 2ZY$(LL): PRINT 22$ SPC 
(€ LO - LEN (22$)) 
169 RETURN 
188 REM 
198 UTAB 21: HTAB 1: CALL - 868: INVER 
SE : FOR Z = 1 TO 158:21 = PEEK 
{ — 16336): NEXT : PRINT 2$;: NOR 
MAL : FOR Z = i TO 2588: NEXT : H 
TAB 1: CALL - 868: RETURN 
388 DATA 9,28,1,2,17,36,1,1 
318 FOR 1 = 1 TO 2: READ ZV(CI) ,2H2(H), 
ZLAK ID ,TY4CDD : NEXT 
020 Poire Mens ss soieosassec 
409 TEXT : HOME : PRINT D1$"BLOAD GESMA 
SKi,D1": REM PREMIER MASQUE DU 


“80 N” après chaque PR#1 de ce 


Mode d’emploi 


Le lecteur est prié de se reporter au 
mode d'emploi décrit dans la routine 


d'INPUT présentée dans le 
numéro 6 de Pom'’s. Il est difficile de 
la répéter ici, d'autant que le mode 
d'emploi peut aussi être découvert 
par tàtonnements où, dans le pire 
des cas, par analyse du programme ! 


PROGRAMPAE 
485 VU = 14:H = 28:L0 = I:TY = 2:X = 0:ME 
= 0:87 = 0 
418 E = 6: GOSUB 149: IF E = 9 THEN 418 
420 27 = VAL (222$): IF 22 < 1 OR 2% D 6 
THEN 418 
438 IF 2% = 6 THEN HOME : END 
448 VU = 17:H = 24:L0 = 9:TY = 1:LL = 1 
458 E = 6: GOSUB 149: IF E = 9 THEN 485 
468 ZY$(I) = 22$:M$ = 22$:2M$ = "ENREGIS 
TREMENT CONFIRME": GOSUB 7/78: IF 2 
$ = °N* THEN X = I: GOTO 458 
476 HOME : PRINT D$"BLOAD GESMASK2"':X = 
. 8:ME = 60:8% = 6: REM DEUXIEME M 
ASQUE DU PROGRAMME 
489 VU = /:H = 29:TY = 2:L0 = I:E = 08: 60 
SUB 149: IF E = 9 THEN 4608 
498 2Y$(CI) = 22$:D = VAL (22%): IF D < 
1 OR D > 2 THEN X = 1: GOTO 488 
568 IF 2% < > 4 THEN 568 
9518 ME = 8:D% = 2:X = 8 
928 FOR LL = DZ TO 3:LI = LL - I1:V = 24 
A2LD:H = ZHACLID)D:LO = ZLZCL 1) :TY 
z TYA(L 1) 
525 E = 8: GOSUB 149: IF E = 9 AND LL = 
2 THEN LL = 3: NEXT :X = 1: GOTO 
488 
938 IF E = 9 THEN LL = i:X = 1: GOTO 55 
6 
548 2YS(LL) = 22$ 
999 NEXT :S = VAL (2Y$(2))2:E$ = 2Y$(3) 
1: IFS<10RS > 5 OR (ES < > ” 
0" AND E$ < > "N'°) THEN DZ = 3:X 
= ji: GOTO 528 
968 GOSUB 7/78: IF 2$ = "N*" THEN X = 1: G 
OTC 488 
970 Z = 6: HOME : PRINT DI$"BLOAD'MS" ,D" 
D: ON 2% GOTO 688,618,628,638,658 
6868 IF Z = 6 THEN 95818 
682 CALL 37588: REM ROUTINE DE GESTION 
DE MASQUES 
685 POKE 34,24: PRINT DI$"S8SAVE"M$" AIS 
24,L1824": GOTO 488 
618 CALL 37503: GOTO 685: REM ON SAUTE 
LE "HOME® DE LA ROUTINE 
628 POKE 36,68: POKE 37,23: CALL 37537: 
GOTO 4608: REM ON SAUTE DIRECTEME 
NT AU "JSR VTAB” DE LA ROUTINE 
638 PRINT D$"PR#"S: IF E$ = "O° THEN P 
RINT CHR$S (9) "S8N" 
648 CALL 37989: PRINT D1$*PR#KG°": GOTO 4 
68: REM ROUTINE DE HARD-COPY TEX 
T 
658 2M$S = "ANNULATION CONFIRMEE": GOSUB 
70: IF 2$ = °N*" THEN 4608 
668 PRINT D1$"DELETE"MS$: GOTO 468 
9088 Z = PEEK (222): IF Z = 6 AND 2% = 
1 THEN 688 
S818 IF 2% = 1 THEN 2$ = "CE MASQUE EXI 
STE DEJA" : GOSUB 198: GOTO 4688 
9928 2$ = "CE MASQUE N'’EXISTE PAS": GOSU 
B 198: GOTO 488 
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Programme MASK.DEMO 


16 
28 


40 
45 
4é 
98 


59 
78 


71 
138 


148 
142 
145 


149 


158 
154 
156 
158 
162 
163 


164 


165 


iéé 


167 
168 


HIMEM: 37344 
D$ = CHR$ (42 :D1$ = CHR$S (13) + D$: 
FRINT D$*BLOAD INPUT.0BJ": PRINT 
D$" BLOAD PARA.0BJ": PRINT B$"BLO 
AD HCT.0BJ" 
GOTO 368 
REM 
REM PLACE À L'’ADRESSE $é LE CARACTE 
RE DE C@NTROLE EN INMVERSE 
ASC {2$) - 64: POKE 4,2: 
839: RETURN 
REM 
UTAB 22: HTAB 1: 


2 = CALL 38 


INVERSE : PRINT 2H$ 
33 NORMAL : INPUT “ ? ":2$: UTAB 
22: CALL - 268:2$ = LÉFTS (2$,1 
D: IF 2$ = "O" OR Z$ = “N" THEN 
RE , DIN 

GOTO 78 

UTAB 22: HTAB 1: INVERSE : PRINT “’ 
RETURN’ OÙ ‘?‘ POUR IMPRESSION" ; : 
NORMAL : GET Z$: IF ASC (2$) < 
> 13 AND 2$ € > “?" THEN 138 

UTAB 22: HTAB 1: CALL - 868 

IF ASC (Z$) = 13 THEN RETURN 

POKE 34,24: PRINT DI$*PR#]I°: CALL 3 
7989: PRINT DIS$"PR#8": RETURN 

UTAB UV: HTAB H: PRINT LEFT$ (P8$,L 
0) ;: VTAB UV: HTAB H: IF ME = 2 OR 
X = 1 THEN PRINT ZY$(LL): IF BX 
= 8 THEN 168 

UTAB VU: POKE 8,TY: POKE 36,H — 1: P 
OKE 7,L0: CALL 37358 

LC = PEEK (9):E = PEEK (6): 
9 THEN RETURN 

22$ = “"; PRINT SPC( LO - LOC): 
C = 6 THEN 168 

FOR 2Z = 1 TO LC:Z = 
2) - 128:22$ = 22% + 
EXT 

IF TY < 3 THEN RETURN 

IF MID$ (22$,2,1) = "/" 

"B" + 22$ 
IF MID$ (22$,5,1) = 
LEFTS (22$,3) + 
22$,4) 

IF LEN (Z2$) < D 8 THEN 2$ = 
3): GOSUB 198: GOTO 149 

24 = VAL € MID$ (22$,4,22): IF VAL 
(€ LEFTS$ (Z2$%,2)3 > 31 OR Z4 > 12 
OR 24 x VAL © RIGHTS (Z22$,2)) < 

= 8 THEN Z$ = ME$(3): GOSUB 198 
: GOTO 149 
RETURN 
IF ME = 2 


IFE = 
TELE 
PEEK (784 + 2 
CHR$ (2): N 
THEN 22$ = 


7e 
OL + 


THEN 22$ = 
RIGHTS « 


MES 


OR X = 1 THEN VTAB VU: HT 


Exemple : masque de MASK.DEMO 
200000000000000000000 000000000000000000000000000OOOOOOUEXXLXLKLXXLXXXXXXXXXXX 


169 
198 


628 





AB H:22$ = ZYS$(LL): PRINT 22$ SPC 
C LO —- LEN <22$)) 

RETURN 

UTAB 21: HTAB 1: CALL - 868: INUER 
SE : FOR 2 = 1 TO 158:21 = PEEK 
€ — 16336): NEXT : PRINT 2$;: NOR 
MAL : FOR Z = 1 TO 2588: NEXT : H 
TAB 1: CALL - 868: RETURN 

POS = “os ss somaunsnannur 


DATA CREATION ,MODIF ICATION, CONSULT 
ATION 


FOR I = 1 TO 3: READ EISCID: NEXT 
TEXT : HOME : PRINT D1$"BLOADMASK1" 
ILX = 0 
VU = 22:H = 3B:LO = I:TY = 2:X = 6:ME 
= 0: GOSUB 149: IF E = 9 THEN 41 
@ 
2% = VAL (22%): IF 2X < 1 OR 2X > 5 
THEN 418 
1F 2% = S THEN HOME : END 
1F 24 = 4 THEN 688 
HOME : PRINT DI$"BLOAD MASK2": UTAB 
4: HTAB 1: INVERSE : PRINT LI$(2 
2) 31: NORMAL 
BZ = B X (2% > 12:X = 1 *X (BX = B):M 
E = 8:D% = 1:TY = 2 
EUR LL = DZ TO 18:LI1 = LL / 2:L = 
INT CL :DH = 1 x (L = LID:U = 9 
+ 2X CL - DH):1H = 16 + 15 X DH:L 
G = 9 - 2 X DH 
E = 6: GOSUB 149: IF € = 9 AND EL = 
1 THEN LL = 18: NEXT : GOTO 4688 
IF E = 9 AND ME = @ THEN LZ = LL 
IF E = 9 THEN LL = LL - 2:ME = 2: G 
OTO 528 
ZYS(LL) = 22$:ME = 2 X (LL € LZ - 1) 
NEXT :8% = @:LX = 6: IF 2% = 3 THEN 
GOSUB 138: GOTO 488 
248 = "ENREGISTREMENT CONFIRME": G0S 
UB 78: IF 2$ = "N° THEN X = 1:07 
= 18: GOTO 478 
GOTO 488 
HOME : PRINT DI$"BLOAOMASK3" : POKE 
34,24: PRINT D1$°"PRH1":2$ = "A": 
GOSUB 58:2$ = "B": GOSUB S8:2$ = 
°A": GOSUB 58:2$ = "D": GOSUB 58: 
PRINT “*3;: PRINT D$°PR#8" 
FOR I = 1 TO 5: VTAB 5: HTAB 13: PR 
INT "RUBRIQUE ‘1: VTAB 6: HTAB 7: 
PRINT 2ZY$(C2 X 1) —- 12;: HTAB 27 
5: PRINT 2Y$(2 X D); 
PRINT DIS$S"PR#1":2$ = *“C°: GOSUB 58: 
PRINT “*3: PRINT D$"PR#8": NEXT 
: PRINT DIS*PR#H#1":2$ = "D": GOSUB 
58:2$ = "A": GOSUB 58: PRINT bi$ 
“PR#8°: GOTO 4688 


x INTITULE x VALEUR NO 1 x VALEUR N@8 2  % 
XXXXEXXXEXXXXEXELXXEXXXXXXXEXXXXLXXXXXXXXXXXXLLAXELEXXXXXXXEXXEXXAXXXEXEXLXXXXX 
x x x x 
x RUBRIQUE 1 x 1234.56 x 987.65 x 
x RUBRIQUE 2 x 2233.44 x 999.88 x 
x RUBRI QUE 3 x 1918.28 x 234.56 x 
x RUBRI GUE 4 x 9753.10 x 63.88 x 
x RUBRIQUE 5 x 2323.23 x 111.22 x 
x x x x 
XXXXXXXXXXXXXXXEXXELXXEXXXAXXAXLXLXLLEXEXKEXEXXXLXXEXAXEXEXXLLLXLLXEXLXXAXXEXXX 
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2 34 

a 

4 x 

S ;x 

é ;4 

7.4 

9 ; 

18 RG 4927 
11 06.1 4599 
12 V2 ER) $18 
13 KR EOU #19 
14 VI EPZ #8 
1541 EP2 #9 
16N P247 
17C EPZ $6 
18ADR  EP2 428 
19H EP2 $24 
@V EP2 $25 


21 VTAB  EQU 4FC22 
22 6€F EM) 4FD8C 
23 NOŒÆ  EQU 4FC5 
JSR HOME 

LOR 

STA K 

DEB LDAV 
OP #18 
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71 BPL S1 


CODE = MASKIN.08.S 


MASKIN.SCE — Lisa 1.5 


[AR LESS SES STE SIT ESS SNS SSI SES SET SES 


3x ROUTINE D€ GESTION DE MASQUES 3 


x 
x 


CARTES SES EE CSSS SET CESSE) 


YDRAPEAU POUR. INVERSE 
+ ADRESSE 1ERE COUME 
: POSITION HOR. CURSEUR 
:POSITION VER. CURSEUR 


S0EPLACE CIRSELS EN U 
1ONTREE DE CARACTERE 


>DENIERE LIBE ? 
; FÆTOUR ERE COU/1ERE LIRE 


“DERNIÈRE COL. DE LA LISE ? 


PASSER À 1ERE COL. LIBNE SUITE 


POSITIQRE CLRSEUR 
OMTREE ORACTERE 

ESC ? 

sRENRN ? 

30 =) LIGÆ SIIWNTE 

; °.)° ? 

OUI =) CARACTERE SUIWVANT 
H Leu ? 


30UI =) CARACTERE PRE CEDENT 
5 "C-° SUR LER CARAC. DE LA LIGNE 


3S 1ER DMC, /IERE LIBRE : ON RESTE LA 


;DERNIER CARAC./LIBNE PRECEDENTE 


; CTRL-R ? 


OUI =) LIGNE PRECEDENIE 
351 U2=8 CN POSITIONNE EN VU 
JON SAUTE À LA DERNIERE LIRE 





; CTRL-1 ? 


3SIGRLER LE ‘INVERS* 
; CTRLAN ? 
3SIGRALER LE "NORES." 


; CTRLH ? 


3DERNIERE LIGNE =) ON IGNORE 

CALCUL ADRESSE BASE LIGNE U 

PRE EAN, H DE LIGNE V 

PASSE À LA LIGNE SIFIVANTE 

AFFICHE LE CARACIERE 

; REMÆT LE CURSŒUR NS LA KDE COLOGNE 


; CTRL-D ? 


DERNIERE COU/DERNIERE LIGNE : ON IGNORE 
3SANEGNDE POSITION CURSEUR 


3S$1 DERNIER CAC. DE LA LIGE +) PREURE 


{DECALAGE À PARTIR DU CARAC. SUIVANT 


30N DECALE LES CARATERES DE 


125 3; L'AVANT DERUER DE L'EUVN JUSQU'A H1/VI 


78 SSi OP He 
74 &E 552 
77 LA #1 
78 S53 STAM 

79 MP $1 
60 S52 OP MÆ 
8i GNE $7 
@2 tDR #9 
83 JP 553 
84 S7 OP n% 
8 BNE 53 
86 LDA V 

87 OP #17 
88 BE9 S] 
69 JSR $FBCI 
| LV H 

91 LDA (ADR),Y 
92 INC V 

93 JSR D) 
94 CC H 

ñ PS4 
96 58 OF #34 
97 BEO 06 
Fc] MP 59 
99 De LA V 
188 OP #17 
18) GE Df 
182 LDA H 
183 OF #2? 
184 &E Di 
185 de S! 
186 B1 LA V 
107 STA V2 
188 LA H 
189 STA H2 
118 OP #27 
fif ;LE PREMIER DE LA SUTUWANTE 
112 GNE Dé 
113 LDA 
114 STA Hi 
15 INC V 
lié LA V 
117 STA VI 
118 XF 07 
119 Dé INC H 
128 LR 4 
121 STA Hi 
122 LDA V 
123 STA VI 
124 D? LOA #17 
124 STA V 
127 D3 LDY 0926 
128 D$ JSR #FBC! 
129 LA (AOP),Y 
13 IN 

131 STA (AC ,Y 
12 LOÀA V 
133 OP Vi 
134 BE 02 
13 CPY Hi 
136 BE 02 
137011 LOA V2 
138 ; METIRE UN "@ANC" EN HU 
1# STA U 
14 LA He 
141 STA H 
142 LA 6348 
143 JSR D1 
144 DEC H 
145 Æ SI 
1& ; 


147 ; PROCEDURE EN 02 => COSÆNT CUPIER LE DERNIER CARACTERE 
148 ; D'UÆ LIGNE SUR LE PREMIER DE LA SIHVAMTE FT REVENIR 


149 ; À CETTE LIGNE 


158 ; 
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248 S19  JSR OUT 
241 dE S 
242 OUT 1 4 


243 ; M1 =) TRANSFORÆER LES CDOES-ECRAN DES DARACTERES 
244 ; POUR AVOIR LES *INJÆERSE* 
245 CPX #1 

BE 61 

CP 4408 


254 ; PROCEOURE O1 : AFFICHE LE CARACTERE ET AJANTE CURSEUR 


Si  STAC 
256 LDA V 
257 JSR 4FBC1 
258 LOY H 
259 LAC 
269 STA CAR), Ÿ 
261 INC 4 
262 RTS 
263 DOH "INT" 


264 ED 


HCT.SCE — Lisa 1.5 


PPPPETFEE: CPPEFEFEPErTEE 
8 8 El 
BASSRE 325552542935 35 
ë ER RE D 
& S 
D RER SSSR 


LRRCLLELIETSEESESIT ETES SES SES ETES 

2 À x 

3 4 HARD- COPY ECRAN TEXT x 

4 :X x 

S 34 CODE = HCT.08J x 

6 5X x 

FA. { 

CMS ESS ESSIOEIS SUISSES ETES TT S EE 
9 ; | 
18 ORG 99465 

il 08J 1888 

124 EP2 #25 3 © IIPRESSION PARMETREE 

13 ADR FPZ 928 

14 PR EQU $FDED 

35 LDA 4 

1é STA V 

17 HC8  LDY #4 

18 JSR #FBC1 


19 HCS  LDA (AOP ,Y 
2 ; CODE-ECRAN Ds 48 : CAR, "NRA" 


pal 0? #4 

2 8CS HC2 

23 ; CODE-ECRAN COPRIS ENTRE 28 £3 39: CARAC, AUTRE QUE À-2 EN "INVÉRSE" 
24 OP #52 

re] 8CS HC3 

26 CL 

27 ; TRANSFORME CARAC. € ‘A À °2° EN "NOR" 

29 ADC #408 

29 XP H2 

æH3 CC 

31 ; TRANSFORME CAMAC. DE "SPACE" À °9° EN "NORMAL" 
2 ADC 0588 


RL 


151 D2 CPy 41 

152 BNE D4 

153 DEC V 

154 LDAU 

155 JSR 4F8C1 
156 LDY 4927 
157 LDA (ADR), Y 
158 STA £ 

159 INC V 

1] LOA V4 

léi JSR #FBC1 
162 LOY #4 

163 LD C 

164 STA (ADR), Y 
165 €Pr H1 

166 BE 9019 

167 LDAV 

168 OP VI 

169 ONE 210 

178 JP 11 

171 Di8 DEC U 

172 LDA VU 

173 PP 03 

174 D4 (2 DECALE CARACTERE PRECEDENT 
175 DEY 

176 WP D 

#77 S9 CP #87 : CR<6 ? 
178 : 

179 : CTR -6=) DE CALAGE À GATE 
186 ; (MEMES PRINCIPES GENERMX QUE FOUR CTRL-D) 
181 ; 

182 BEC 64 

183 MP S18 

184 60 LA VU 

[Le] CP 1117 
186 BNE 61 

387 LA H 

188 OP 7 
189 BNE 61 

19% aP 51 

191 61 LDA V 

192 STA V2 

193 LDA H 

194 STA 42 

195 67 OP 427 
1%6 BE 64 

197 INC 4 

198 LR #4 

19 STA H 

288 WP 62 

201 64 EL CH 

282 62 EDR V 

23 IN h 

204 JSR $FBEi 
285 {DA (ADP ,Y 
206 STA C 

27 CF K 

288 SE 63 

249 CU 

218 LDA VU 

2fi JSR #FECI 
252 \w 27 
283 LDA € 

at4 STA (ADR) ,Y 
2iS INC 4 

216 LDA #4 

217 STA H 

218 AP 65 

219 63 LDA V 

2% JSR #FECI 
221 DEY 

2 LDA € 

223 STA (ADR), Y 
224 65 LOA VU 

25 DPF 417 
226 BBQ 66 
Porm's n° 7 
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33 HC2  JSR PR 3 JPRIMANTE 2 JSR PR 
4 ENY 3 OMACTERE SUEUANT 4] RTS 
K) CPY 428 30ERNIERE COLONE ? 28 #8  LOK 41 ON À TROUVE LE GER CARAC. CONTROLE 
3% 8Æ HCi 29 AP HP2 
37 LDA #68D 3FIN DE LIGNE D'IMPRESSION 30 Hi CPxX 11 31ER CARAC, CONTROLE DER TROUE ? 
3 JSR PR 31 BE 2 
3 INC V LIGE SUJUNTE Li JSR PR 
L LA V 33 HP2  IW 3 DRRACTERE SIITVANT 
ai OP 4418 DERUIERE LIGNE ? 4 CPr 4428 DERNIERE CADRE ? 
æ BNE HC8 K) BE #3 
4 RTS 3% INC V LIGNE SUIVANTE 
4 DOX *INT* 37 LA V 
4 EN æ OP #18 DERNIERE LIGNE ? 
39 BNE HP4 
4 RTS 
a 004 “INT° 
& ED 


PARA.SCE — Lisa 1.5 


7206800068008080000088868620068888 


Î 
2 A { 
é j NS 0. Exemple : masque de GESMASK 
51 CODE = PARA. 0BJ { 
6 ;X { LXXXXXXXXXALXALXLLXELXXXXXXXXXEXXXXEXXXXXX 
2 500000B6HERU00000000066H000060E0 x x 
8; x GESTION BE MASQUES x 
$ ERG 59497 x x 
18 0EJ 9989 É——————— x 
iv EP2928 3POSITEON VERTICALE CURSEUR x x 
12408 EPZ 678 ADRESSE PREMIERE CLONE X 1 —- CREATION 2 — MO@HBIFICATION X 
33€ EP2 % JON. DE CONTROLE EX INVERSE * x x 
14 PR EQ $FDED SSORIIE DE CARACTERE %X 3 —- CONSULTATION 4 - IMPRESSION x 
15 LD # x x 
t4 STA V € S - ANNULATION é — FIN x 
17 LOX #0 x x 
18 HP4 LOY #0 ; YO DE CU NE x x 
is JSR $F 80! CALCUL. ADRESSE BASE LIGNE CARANTE x UOTRE CHOIX : x 
28 HP3 LDA (AO ,Ÿ x x 
21 PC : CARACTERE D€ CENTROLE ? x x 
rl ENE #1 x NOM PU MAS@LUE 1: ......... x 
23 CPX 4! x x 
4 RE WP x x 
= UR et FIN 0€ LIGNE D'1MPRESSION LXXXXXXLXXXXLXELXXLXXXEXXXXEXXXXXXXXXXXX 


Abonnez-vous à Pom’s 


La vie de votre revue dépend de son nombre d'abonnés. Plus vous êtes nombreux, plus 
nous pouvons vous rendre service, par l'augmentation correspondante de nos moyens 
comme par le plus grand nombre de contributions que nous recevrons forcément de vous. 


Nous avons volontairement choisi une politique de disquettes à bon marché ; ainsi, lorsque 
vous vous abonnez avec disquettes, chaque disquette vous revient à moins de 45 francs 
TTC, port compris ! 


Un abonnement à quatre numéros coûte aujourd’hui 295 francs. Cela ne sera-t-il pas 
largement amorti si une seule des 200 pages de texte que vous trouverez en quatre 
numéros vous résoud ce problème sur lequel vous séchez (on a vite fait de perdre deux ou 
trois jours sur un problème) ? 


Dans de nombreux numéros, nous vous avons offert des programmes comparables à ceux 
qui sont vendus de 250 à 500 francs dans les boutiques. Profitez-en ! 
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MASKIN.OBJ 
x927C.9464 


927C- 
92808- 
9288— 
9290- 
9298- 
92A8- 
928- 
92808- 
9283-— 
92C8- 
92C8- 
92D68- 
92D8- 
92E08- 
92E8- 
92F8— 
92F8- 
9308- 
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9428- 93 ÀS5 24 C9 27 
9428- ES 93 À9 AG 28 
9430- 18 08 85 25 AD 


9438- 24 4C A1 92 28 
9448- 92 92 A6 87 E@ 

C9 18 D8 9448- C9 C8 88 86 38 

85 24 4C 9458- 55 94 38 E9 C@ 

28 D@ 89 9458- 25 28 C1 F8 A4 

25 4C 83 9468- 91 28 Eé 24 68 

OC FD C9 

8D D@ 685 HCT.OBJ 

c9 95 D@ 

92 C9 98 X9465.9496 

se Se ee 9465- A9 08 85 

Hp 9468- 25 A8 88 28 Ci 

SRE Re 9478- C9 48 88 @8D C9 

ERTE 9478- 18 69 C8 4C 81 

DE RES 9488- 88 28 ED FD C8 

AE ASS 9488- ES A9 8D 28 ED 

eee 9498- AS 25 C9 18 D8 

C9 17 F@ 

Cé 24 40 x9497.94C8 

63 4C 88 

D 89 AS 9497- A9 

4c A1 92 9498- 08 85 25 A2 68 

AS 24 8D 9448- C1 F8 81 28 CS 

D À? 66 94A8- E8 81 D8 86 A9 

25 85 68 9488- FD 468 A2 81 4C 

AS 24 85 9488- 61 D@ 83 28 ED 

A9 17 85 94C@- 28 D8 DF Eé 25 

F8 81 28 94C8- 18 D8 D2 68 

CS 68 De 

AD 18 68 INPUT. OBJ 

+ ne (Voir Pom’s 6 pages 19-22) 

Cé 25 AS X91E46.926F 

27 81 28 

25 28 C1 91Eé- A9 80 

91 28 C4 91E8- Aé 87 9D 11 83 

CS 68 De 91F8- A2 88 86 86 28 

25 A5 25 91F8- 8D F8 72 E4 87 

ac 58 93 9208- 88 F8 28 28 DD 

3C 94 A5 9288- 91 C9 98 DO 89 

AS 24 C9 9218- 85 A9 89 85 Gé 

92 A5 25 9218- D8 85 A9 AE 4C 

8D 19 08 9228- AE F8 48 C9 88 

25 A9 08 9228- 88 F8 8é CA Cé 

Eé 24 AS 9238- 91 C9 95 DO @C 

F8 81 28 9238- C1 F8 A4 24 81 

lé Cé 25 9248- 92 C9 A8 98 AF 

A8 27 AS 9248- AB A4 88 C8 81 

A9 08 85 9258- AF 88 84 C9 AD 

25 28 C1 9258- BA 88 99 EG 68 

28 AS 25 9268- A2 F8 91 28 ED 

24 4C D8 9268- 03 EB 4C F4 91 


29 
0F 
ED 
EQ 
ca 
C9 


NBA NIET 
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Clefs pour l'Apple Il 

par Nicole Bréaud-Pouliquen 

Ce livre de référence est destiné à se 
trouver en permanence à côté de votre 
Apple 1. Son but est de vous faire accé- 
der rapidement à l'information dont vous 
avez besoin : syntaxes des commandes, 
codes machine, adresses utiles. || com- 
prend également un recueil de 25 ‘trucs ‘ 
utiles, les ‘Comment... ?" 

Format : 14,5 x 21 

144 pages 

92,00 FF / 710,00 FB 


of Éditions dy Sa) 


La comptabilité sur Apple |} 
par Gérard et Serge Lilio 
Format : 21 x 28,5 


Lisp sur Apple Il 


par Nicole Bréaud-Pouliquen 


La pratique de l'Apple Il 


Tome 1 


Et 11 livres 





de référence 
pour votre Apple... 


La découverte de l'Applesoft 
Tome 1 - par Dominique Schraen 
et Frédéric Levy 

Série verte - Format : 14 x 21 
128 pages 

72,00 FF/ 555,00 FB 


La découverte de l'Applesoft 
Tome 2 - par Frédéric Levy 


Série verte - Format : 14,5 x 21 
PET ES 
72,00 FF/ 555,00 FB 


P.S1I. DIFFUSION 

41-51, rue Jacquard 

BP86 

77402Lagny-s/Marne Cedex 
FRANCE 


par Nicole Bréaud-Pouliquen 
Série bleue - Format : 14,5 * 21 
128 pages 

72,00 FF/ 555,00 FB 

La pratique de l'Apple 1} 
Le11120°2 

par Nicole Bréaud-Pouliquen 
Série rouge - Format : 14,5 * 21 
120 pages 

72,00 FF/ 555,00 FB 


La pratique de l'Apple H 

Tome 3 

par Nicole Bréaud-Pouliquen 
Série noire - Format : 14,5 x 21 
176 pages 

CHAN ZA EX EN ES 2] 


Envoyer ce bon 
accompagné 

de votre règlement à 
PSI. DIFFUSION 

ou, pour la Belgique et 


Série bleue - Format ; 17 x 25 
112 pages 

72,00 FF/ 555,00 FB 
Visicalc sur Apple 

par Hervé Thiriez 

Série verte - Format: 17 * 25 
176 pages 

CPAS TAUX EN IE 2] 
Mathématiques et statistiques 
par Hervé Haut 

Série rouge - Format: 17 x 25 
272 pages 

92,00 FF / 710,00 FB 


160 pages 

102,00 FF / 785,00 FB 

32 Basic Programs for Apple | 
computer 

Format 13,5 x 21 

280 pages 

150,00 FF / 1155,00 FB 
Recueil Pom's n° 1 

PRET TE 

120,00 FF / 925,00 FB 








DESIGNATION 





























Téléphone (6) 007.59.31 le Luxembourg, à 

P.Si. BENELUX RAUBERELTR 

re ke db par avion ajouter 8 FF (75 FB) par livre. TOTAL Je 

ruxelles 

BELGIQUE 

Téléphone (2) 345.08.50 NOM _ — . PRENOM _ : 
rue N° 
Code post. L 1 1 1 ii Ville = 





FID, MUFFIN et DEMUFFIN 


Les programmes FID et MUFFIN se 
trouvent sur la disquette MASTER 
du DOS 3.3. Beaucoup de lecteurs 
nous ont posé des questions à leur 
sujet et ne semblent donc pas bien 
maîtriser leur utilisation. Nous allons 
par conséquent apporter quelques 
éclaircissements à cet égard. Nous 
signalons à tout hasard que la bro- 
chure du DOS en français explique 
l'utilisation de ces deux program- 
mes ; le lecteur pourra aussi s'y 
reporter. 


Les fonctions du programme FID 

sont multiples : il vous permet de : 

e copier des fichiers (1 ou 2 lecteurs) 
de toute nature, même binaire ou 
texte 

e demander le catalogue 

e obtenir le nombre de secteurs 
libres 

e verrouiller (LOCK) ou déverrouil- 
ler tout fichier 

e effacer (DELETE) tout fichier 


Le programme MUFFIN, quand à 
lui, permet de transformer des 
fichiers du DOS 3.2 vers le DOS 
3.3, y compns pour les fichiers Visi- 
calc. 


Ces deux programmes sont agréa- 
bles sur le plan ergonomique. Ils 
savent, grâce à l'utilisation de 
valeurs par défaut, vous éviter des 
répétitions inutiles. Par exemple, 
lorsqu'on demande une seconde fois 
d'affilée la copie de fichiers, le pro- 
gramme ne demande plus la spécifi- 
cation des numéros de slot et drive. 


Si l’on possède un seul lecteur. le 
transfert se fait du slot 6, drive 1 
vers lui-même ; FID et MUFFIN 5e 
chargent de vous indiquer quand il 
faut mettre la disquette initiale ou la 
d'isquettefinale dans le lecteur. 


Utilisation 
du signe « = » 
Pour les deux programmes. la 


même technique d'identification 
abrégée des fichiers est possible. 
Quand le nom du fichier à copier ou 
à adapter est demandé, l'utilisateur 
peut répondre par le signe « = ». 

Ce signe signifie «tous les 
fichiers » ; le programme demande 
alors « Do you want prompting ? ». 
c'est-à-dire « Voulez-vous une 
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demande de confirmation à chaque 
fichier ? ». 

Si vous répondez par l'affirmative, le 
programme vous demande à cha- 
que fichier s’il est concerné ou non 
par l'opération. 

Si vous répondez de façon négative. 
tous les fichiers de la disquette sont 
concernés. 


Le signe « = » peut aussi être utilisé 
dans le nom. Ceci permet par exem- 
ple de sélectionner seulement les 
fichiers de texte en Applewriter avec 
la réponse « TEXT= ». Le reste se 
passe comme dans le cas où on à 
répondu par « = ». 

Ainsi, en spécifiant un nom tel que 
« =AL=X= », l'utilisateur sélec- 
tionne tous les fichiers comportant 


Hervé Thiriez 


ments mémoire. On peut par consé- 
quent rappeler les programmes. s'ils 
n'ont pas été écrasés, par un simple 
CALL. 

CALL 2051 réactive FID ou MUF- 
FIN : le dernier chargé en mémoire. 
car les deux utilisent la même zone 
et ne peuvent par conséquent 
coexister. 


Création de DEMUFFIN 


Ceux qui ne possèdent pas le pro- 
gramme SUPER COPY, qui permet 
de transférer des fichiers dans les 
deux sens entre le DOS 3.2 et le 
3.3, peuvent transformer leur MUF- 
FIN en DEMUFFIN afin de pouvoir 
adapter leurs fichiers en DOS 3.2. II 





dans leur nom « AL » puis « X » 
dans cet ordre. 


Retour au menu 
principal 


Lorsque l’on désire revenir au menu 
principal, il suffit d'entrer la réponse 
« Q » (pour QUIT). C’est particuliè- 
rement utile pour copier ou transfor- 
mer un fichier dont on ne se rappelle 
plus bien le nom. 


On utilise alors l'option « = » et le 
« prompting» pour identifier le 
fichier ; une fois la copie (FID) ou la 
transformation (MUFFIN) assurée, il 
est superflu de répondre « Y » ou 
« N > à la proposition de chaque 
fichier ultérieur. Il suffit de répondre 
e Q »aulieude«Y sou«N ». 


Rappel du programme 


Les deux programmes résident en 
mémoire jusqu'au moment où un 
RESET a eu lieu, à moins que des 
programmes utilisés avant celui-ci 
n'aient occupé les mêmes emplace- 


ya en effet encore des DOS 3.2 non 
transformés dans la nature. 


La procédure la plus simple est celle 
proposée par Rob Moore dans la let- 
tre du SNAC (Southern New 
Hampshire Apple Core) et publiée 
par CALL APPLE. en février 
81 : 


1 BLOAD MUFFIN 


2: CALL -151 
1SAF : B3 
15B6 : B2 
15F7 : C4 C5 


20AA : A9 1E 8D B9 B7 20 
20B0 : FD AA 48 A9 BD 8D 
20B6 : B9 B7 68 60 


1155-00 1E 
115B : D9 03 
1197 4: AA 20 


Cette procédure crée un programme 
DEMUFFIN DOS 3.3, c'est-à-dire 
qu'il permet, quand on est en 
DOS 3.3, de transporter un fichier 
sur une disquette en DOS 3.2. 


Il ne reste plus qu'à revenir en 
Applesoft et à faire: BSAVE 
DEMUFFIN 3.3, A$803, L$1900. 





ON SEEN 
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Le cours de BASIC 
Applesoft d'André Finot 


Jean-Jacques Crépy 


Ayant récemment acquis un Apple 
dans le but de permettre à mes 
enfants de s'initier à l’informatique, 
je me suis renseigné pour savoir 
quelles étaient les possibilités 
d'apprendre le BASIC à domicile. 
J'ai fait cette expérience avec le 
« Cours de BASIC Applesoft » 
d'André Finot. 


Ce cours se présente sous la forme 
de trois disquettes accompagnées de 
deux feuilles de commentaires sur le 
cours, ses objectifs et son mode 
d'utilisation. Il ne reste plus qu'à 
mettre la première disquette dans le 
lecteur et à lire les écrans successifs, 
en répondant aux questions éven- 
tuelles. 


Mes enfants et moi-même avons tra- 
vaillé avec ce cours de BASIC. 
Seule l'augmentation de mes activi- 
tés professionnelles m'a empêché de 
dépasser la leçon 8 (sur les 26 que 
compte ce cours en trois disquettes). 
Voici donc mes premières impres- 
sions, complétées par celles de mes 
fils qui ont êté jusqu'au bout du 
cours. 


Ma première impression est favora- 
ble : la méthode proposée est simple 
et permet à quelqu'un n'ayant 
aucune notion d'informatique de 
comprendre les premiers rudiments 
de ce langage. 


Ma seconde impression générale est 
un peu moins bonne, et concerne 
principalement l'impossibilité d’effec- 
tuer des retours en arrière. Il devrait 
être possible de bloquer le déroule- 


ment du programme d’une leçon, 
pour mieux en comprendre telle ou 


telle partie. 


Je regrette personnellement de ne 
pouvoir me référer à des explications 
antérieures pour mieux comprendre 
le programme étudié. Ceci est parti- 
culièrement valable lorsqu'il est fait 
état de courbes et de dessins. 

Je pense que, si cette possibilité était 
offerte, le cours serait très facilement 
assimilé, en particulier dans ce cas 
précis. 

En ce qui concerne les révisions, 
l’étudiant a la possibilité de soumet- 
tre trois réponses. Si, au terme de la 


troisième, il n'a pas réussi, la bonne 
réponse lui est donnée. 


Personnellement, j'aimerais que la 
réponse soit, dans certains cas, 
mieux explicitée, et qu'il soit éven- 
tuellement possible de connaître 
lerreur que l’on a commise. En 
effet, puisqu'un retour en arrière est 
impossible, on ne peut comparer la 
mauvaise réponse avec la bonne. Il 
est possible de tourner cette limita- 
tion en inscrivant ses réponses au fur 
et à mesure sur un morceau de 
papier, mais cela me paraît peu 
« informatique ». 


En conclusion, je peux dire que je 
suis très content de ce cours, et qu'il 
en est de même pour mes enfants, 
dont l’opinion synthétisée suit. 


Jean-Jacques Crépy 


Points positifs 

e les instructions sont clairement 
expliquées 

e le langage est simple et accessible 
à tous 

° nimporte qui, même très jeune, 
peut suivre ce cours 

e le révisions sont bien faites 


Points négatifs 

° on n'avance pas très vite 

e trop grande « sophistication » de 
la présentation, qui ralentit le pro- 
cessus 

e on est esclave du programme : il 
faut suivre une leçon dans sa tota- 
lité avant de revenir en arrière 

e le programme s'adresse à nous 
comme si l’on avait 8 ans. 


Conclusion 

Ce programme devrait être enseigné 
en 6ème ou en 5ème. L'élève peut 
le suivre seul, le professeur circulant 
entre les élèves. C’est une initiation 
parfaite pour un débutant. Il aurait 
fallu que le programme comporte un 
tableau récapitulatif des mots réser- 
vés du BASIC que l'on puisse sortir 
sur imprimante. 


David, 18 ans 


Points positifs 

e utilisation aisée 

e texte clair, agréable et précis 
e présentation agréable 
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° nombreuses questions, posées 
3 fois (en cas d'erreur) 

° précision des questions 

e temps de réflexion pour les répon- 
ses. 

Points négatifs 

e impossibilité d'interrompre le pro- 
gramme pour faire un retour en 
arrière 

° nombreuses questions trop faciles, 
qui se répèêtent 

° pas d'explication (avec référence 
au cours) en cas d'erreur 

Suggestions 

e réaliser un fichier des termes, de 
leur signification et de leur mode 
d'emploi 

e fournir un sommaire plus détaillé. 


Philippe, 16 ans 


Remarques d’André Finot 


Je tiens à vous remercier de votre 
analyse de mon cours de BASIC. La 
prochaine version, déjà bien avan- 
cée, aura les possibilités suivantes : 


e arrêts et reprises possibles du 
cours par page ou demi-page 
d'écran (existe déjà) ; 

° pour un positionnement rapide 
dans le cours : 

— retour en arrière possibles ; 
— déroulement en avant à grande 
vitesse ; 


e fractionnement des leçons en par- 
ties avec indication sur l'écran de 
l'entrée et de la sortie de telle par- 
tie ou de telle lecon ; 


e la plupart des programmes, sinon 
tous, pourront être listés sur impri- 
mante. 


D'autre part, je vaistenir compte des 
points suivants que vous signalez : 


e affichage des réponses aux ques-: 
tions ; 


e tableau récapitulatif des mots 
réservés ; 

e sommaire plus détaillé ; 

e fichier des termes, de leur signifi- 


cation et de leur mode d'emploi. 
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Etant un utilisateur quasi quotidien 
de Visicalc, la disponibilité de Muiti- 
plan sur Apple Il Plus m'a tout de 
suite excité. Il fallait que je puisse 
mettre la main sur ce programme 
afin de l'évaluer. C'est maintenant 
chose faite, et je dois reconnaître 
que je ne regrette pas l'expérience |! 


Initialement disponible seulement 
sur CP/M, Multiplan fonctionne 
maintenant sur Apple il Plus 64 K et 
Apple Ile. La version française du 
programme doit sortir sur le marché 
en mars/aunl 1983. 


Le programme fonctionne en 
40 colonnes, mais il est conçu initia- 
lement pour 80 colonnes. La com- 
patibilité avecles cartes suivantes est 
prévue : Videx Videotherm, 
M&R Sup'RTherm, ALS Smar- 
term, Vista Vision-80 et Wesper 
Wizard-80. Ceci dit, ce banc d'essai 
a été réalisé en 40 colonnes sans dif- 
ficulté. 


Présentation générale 


Produit par la célèbre compagnie 
Microsoft, à laquelle nous devons les 
meilleurs BASICSs sur micro- 
ordinateur et d’autres réalisations de 
tous genres (Olympic Decathlon, 
pour n’en citer qu’une), Multiplan se 
propose de remplacer Visicalc. Dans 
ce but, il vise à assurer toutes les 
fonctions de ce best-seller, et à en 
ajouter quelques-unes de son cru. 


Le lancement est quelque peu diffé- 
rent : le programme est fourni avec 
une disquette de BOOT protégée et 
une disquette programme copiable à 
volonté. 


Nous retrouvons au lancement du 

programme un tableau de 63 lignes 

et 255 colonnes, à deux différences 
près : 

e l'identification des lignes et des 
colonnes est entièrement numéri- 
que {je ne vois pas ce que cela 
apporte) ; 

e les commandes apparaissent tou- 
tes en bas de l'écran, et peuvent 
être sélectionnées soit par leur pre- 
mière lettre, soit par validation 
d’un curseur des commandes que 
l’on déplace aisément. 


I existe aussi une différence non visi- 
ble au premier coup d'œil, mais 
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Multiplan à l’essai 


importante pour le débutant : l’exis- 
tence d’une fonction HELP permet- 
tant à l'utilisateur de se renseigner à 
tout moment sur le mode d'emploi 
de la commande en cours. Bien 
entendu, il faut pour cela que la dis- 
quette programme soit dans le 
drive 1; ce n'est pas vraiment 
gênant car il y reste assez de place 
pour mémoriser un très grand 
tableau. 


Comme son grand frère Visicalc, 
Muiltiplan laisse l'utilisateur définir le 
contenu de chaque case, sous forme 
de libellé, de valeur numérique ou 
de formule. Comme lui, il recalcule 
tout le tableau automatiquement ou 
à la demande. On retrouve dans 
Multiplan toutes les possibilités de 
Visicalc ; il y a même (symbole de 
l'esprit pratique des américains) un 
programme de conversion des 
fichiers Visicalc… 





LE 
LUI 


Les nouveautés 


Les différences sont cependant 

nombreuses, Multiplan répondant 

préventivement aux critiques qui 

avaient été formulées antérieure- 

ment à l'égard de Visicalc. Les amé- 

liorations sont multiples : 

e la largeur des colonnesest variable 

e les formules peuvent être globale- 
ment verrouillées 

e toute case peut être verrouillée 

e ilest possible de baptiser une case, 
ou une série de cases : on peut 
utiliser les noms dans des formu- 
les, ce qui est fort agréable 

e il y a au maximum huit fenêtres 
(c'est même trop) 

° de nombreux formats sont dispo- 
nibles 

oil existe une commande de tri 
(SORT) 





Hervé Thiriez 


e les modes d'impression sont beau- 
coup plus riches 

e le recalcul automatique s'effectue 
de façon réellement automatique 
(pas besoin d'appuyer n fois sur la 
touche « ! »)}. 


La fonction de reproduction est 
assez différente : il n'est plus ques- 
tion de définir, pour les coordonnées 
des formules, si elles doivent être 
prises en absolu ou en relatif. C’est 
au moment de la définition d’une 
formule que lon indique la nature 
des coordonnées. 


Ainsi, la formule « +R2C3 
+(1.5xRCI —2]) » signifie que l'on 
utilise le contenu de la ligne 2 et 
coitonne 3 {en absolu), et celui de la 
case placée deux colonnes à gauche 
dans la même ligne (en relatif). Si 
cette formule est reproduite, elle 
sera reproduite telle quelle, la nota- 
tion rendant immédiatement relatif 
ce qui doit l’être. 
Enfin, et là se trouve la justification 
du nom de Muitiplan, on peut tra- 
vailler sur plusieurs tableaux et les 
lier les uns aux autres, ce qui évite 
de devoir transférer des informations 
avec le format DIF. Ainsi, par exem- 
ple : 
e le tableau principal peut être la 
consolidation de trois activités ; 
e chaque activité possède son 
tableau principal propre ; 
e des tableaux annexes effectuent 
les calculs secondaires. 


ll ne reste plus alors qu'à définir les 
liens entre les tableaux. 


Aspects ergonomiques 


Pour un habitué de Visicalc, le pre- 
mier contact avec Multiplan est frus- 
trant. Pour commencer, le scrolling 
{déplacement « rapide » dans le 
tableau) est plus lent ; surtout, il est 
moins pratique : il faut utiliser les 
touches CTRL-E, CTRL-S, CFRL-X 
et CTRL-D (je ne suis pas gaucher, 
et préfère utiliser un doigt plutôt que 
deux). 

Ce problème n'apparaît pas sur 
l'Apple Ile, qui dispose de quatre 
touches de déplacement. 


Heureusement, on peut aussi se 
déplacer écran par écran, ou directe- 
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ment en haut à gauche ou en bas à 
droite de la partie du tableau utilisée. 
Enfin, on peut donner un nom (bap- 
tiser) une case et s'v positionner 
directement grâce à ce nom. 


Dans un souci de protection du con- 
tenu des cases, on ne peut rentrer 
une valeur ou une formule dans une 
case sans préciser d'abord « A » 
(alpha), « V » (value) ou utiliser un 
symbole mathématique (value). 
L'expert ès Visicalc court au-devant 
de surprises désagréables en entrant 
trop vite des libellés : «a ALLOCA- 
TIONS » est compris comme le texte 
(« As pour alpha) « LLOCA- 
TIONS » 


Pour la définition de cases en série, 
le programme maintient par défaut 
l'option Alpha/Value si l'on sort 
d'une case en mode déplacement et 
non par RETURN. 


Enfin, et c’est là le plus gros pro- 
blème pour le possesseur d'Apple Il 
Plus, il y a deux fois moins de place 
disponible avec Multiplan qu'avec 
son grand frère. J’ai converti deux 
tableaux à partir de Visicalc ; voici 
les résultats : 






Mémoire occupée 


Muitiplan 


Tableau 1| 27 % 54 % 
Tableau 21 48 % 98 % 


En outre, le second tableau se recal- 
culait en 5 secondes avec Visicalc, et 
20 secondes avec Muitiplan (4 fois 
plus lent). 


Ceci nous montre qu'avec la carte 
langage et Multiplan, la capacité est 
similaire à celle de Visicalc sans carte 
langage. Bien entendu, il me reste 






avec Multiplan la possibilité de 
déporter une partie du tableau dans 
des tableaux annexes que je relierai 
ensuite au tableau principal : dans 
ce cas, seules les informations des 
tableaux annexes devant être trans- 
férées à d'autres tableaux actifs 
« occupent» de la place en 
mémoire. 





Trucs et astuces 


Le travail au noir des blancs. 


Les blancs entrés au clavier, con- 
trairement à ce que disent les 
manuels, ont une importance. 
Essayez d'entrer, puis de lister le 
programme suivant : 


10 DRAW 1 AT NM 
20 DRAW 2 ATN.M 
30'HPLOMB”AMTO'C.D 
40 HPLOT B,ATO C,D 


Vous pourrez constater que 
« ATO » et « ATN » sont tokéni- 
zés avec les mots réservés « TO » 
et « ATN », alors que « ATO »et 
« AT N » le sont avec « AT ». 


Les fanatiques de l'assembleur 
pourront trouver la raison de tout 
cela en épluchant la routine 
Applesoft débutant en FD56D. 


Dernière critique : il est obligatoire 
d’avoir l'imprimante en slot 1. Je 
trouve ce type de contrainte regret- 


table : que faire si, pour utiliser un 
progiciel de création graphique, 
mon imprimante thermique doit 


aussi se trouver sur ce slot ? Je ne 
peux changer mes cartes sans arrêt, 
les Apples ne sont pas prévus pour 
cela, on s’en aperçoit vite. 


Conclusion 


La phase d'adaptation à partir de 
Visicalc une fois passée, Multiplan 
est un excellent programme, sous 
réserve que l’on ne soit pas bloqué 
par la mémoire. Je n'hésiterai pas à 
l'acheter avec un Apple le ou avec 
un Apple Il Plus équipé d’une exten- 
sion mémoire 32 K ou plus et d'un 
programme de boot Multiplan 
sachant exploiter la mémoire supplé- 
mentaire. 

Si je ne dispose que d'un Apple 
64K, jutiliserai Multiplan si la 
nature des tableaux que je suis 
amené à manier s’accommode du 
découpage en plusieurs tableaux. 
Possédant déjà Visicalc, j'estime que 
Multiplan m'apporte suffisamment 
pour l'acquérir quand même. Dans 
ce cas, selon l'application, je sélec- 
tionne le programme le mieux 
adapté, en n’oubliant pas que la pos- 
sibilité de conversion n'existe 
aujourd’hui que dans un sens. 


Nous venons, dans une société, de 
développer sur Sirius un plan straté- 
gique à huit ans avec Multiplan. Ce 
plan concernait la société française 
et sa filiale américaine, plusieurs acti- 
vités et des analyses détaillées de la 
production, des ressources humai- 
nes, Au total, plus de 20 tableaux 
reliés les uns aux autres. Impression- 
nant ! 


LIELE:T- LIÈLE, OIL LE APIÈLE 


+ Logiciels standards et sur mesure. 


e Interfaces, Périphériques. 


+ Contrôle de processus. 


e Alarme, Sécurité. 


e Commande à distance. 


un m.b.d.c. 


McpPie computer 
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172. RUE SOLFERINO. 59800 LILLE — TEL. (20) 57.91.87 
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Effacement de 


Après avoir passé trois numéros de 
Pom's à faire l'analyse du directory 
Pascal avec Michel Crimont, nous 
allons voir maintenant comment 
effacer de la mémoire de l'Apple le 
directory de la dernière disquette 
lue. À quoi cela sert-il ? 


Chaque fois qu’une opération de 
lecture ou d'écriture est effectuée sur 
une disquette, son directory est 
placé en haut de la pile réservé aux 
variables dynamiques (heap). Il reste 
en fantôme à cet emplacement, 
c'est-à-dire invisible (les pointeurs de 
pile accessibles aux utilisateurs n’en 
tiennent pas compte) tant qu'il n’y a 
pas utilisation de cette pile (et sans 
doute aussi tant qu'il n’y à pas de 
collision avec le sommet du stack). 


Lors des accès ultérieurs aux dis- 
quettes, ce directory est utilisé. 


Si un fichier est appelé par un nom 
de volume {nom de disquette), et 
que ce nom correspond à celui ainsi 
placé en mémoire, l'Operating 
System fait l'hypothèse que la dis- 
quette n’a pas été changée, et donc 
que le directory en mémoire est le 
bon. 


Si un fichier est appelé par un 
numéro d'unité (#4 pour le 
drive 1), il lit le nom de volume et 
compare celui-ci à celui du directory 
en mémoire. S'il y a identité de 
nom, il suppose là aussi que 
l’ensemble du directory est le même. 


On comprendra aisément les catas- 
trophes qui peuvent se produire si 
deux disquettes différentes portant le 
même nom de volume sont utilisées 
successivement. 


Bien entendu, cela est clairement 
expliqué dans les manuels Apple Il, 
qui soulignent la nécessité d'éviter 
l'utilisation de disquettes portant le 
même nom de volume. Malheureu- 
sement, en particulier pour les pro- 
grammes de gestion, la Prudence 
requiert le recours à des disquertes 
de sauvegarde qui, étant copiées 
globalement, portent le même nom ! 
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SIMPLE 5 1L 
SUFFIT DE TIRER 


Le programme introduit ici montre 
qu'il suffrt d’une seule instruction fai- 
sant référence au heap pour que 
l'Apple Il n'utilise plus le directory en 
mémoire. 


Mise en œuvre 


Tout d’abord, exécuter ce pro- 
gramme. On peut vérifier que, si l’on 
essaie d'accéder deux fois de suite à 
un fichier sur la même disquette, 
PApple Il ne lit qu'une fois le direc- 
tory (mise en rotation du drive} tan- 
dis que, si la procédure d’effacement 
a été exécutée, l'Apple I doit aller 
relire le directory. 


Remarques 


Pour que la démonstration fonc- 
tionne correctement, les disquettes 
APPLE1 et APPLE2 doivent être 
réellement présentes ; autrement, il 
ne peut y avoir de lecture du direc- 
tory. 


Dans le cas de l'Apple Jif, il semble 
qu'il y ait toujours relecture du direc- 
tory complet d’une disquette avant 
lecture ou écriture, et je n'ai pas 
réussi à provoquer de destruction de 
disquette (NDLR : à quoi mène 
l'informatique !). 





directory en Pascal 


Régis Lardennois 





Par contre, j'ai déjà eu des problè- 
mes en lecture avec des disquettes 
formatées sur Apple if. Je n’ai pas 
eu le temps d'en approfondir les cir- 
constances, mais ils ont disparu une 
fois le procédé décrit ci-dessus appli- 
qué. 

fl s'agissait d’une non-relecture du 
directory en lecture avec pourtant 
des disquettes portant des noms dif- 
férents, ce qui semble être un bug 
réel dans l'Opérating System de 
l'Apple Ill. 


Application pratique 


Ce programme de test doit être 
placé sur une disquette dite dis- 
quette PROGRAMME durant son 
exécution et, à la demande, rempla- 
cée par une disquette vierge de 
même nom. Si vous ne demandez 
pas de lecture du directory de la 
nouvelle disquette, vous retrouverez 
en plus du fichier TEST tout le direc- 
tory de la première disquette PRO- 
GRAMME sur la seconde. 


Attention : la seconde disquette 
PROGRAMME sera détruite et la 
vraie risque de l'être en cas d’erreur 
de manipulation. Il est donc con- 


seillé de protéger contre l'écriture la 
vraie disquette PROGRAMME. 
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PROGRAM CLEARDIRECTORY : 


UAR CL CHAR; 
CXSI-X) 
PROCEDURE TESTERI;VAR F : 


BEGIN RESET(F,’APPLEIT:TEST‘) ; CLOSE (F) 


END; 


PROCEDURE TESTER2; VAR F 


FILE OF INTEGER; 


{ le fichier TEST ne doit } 
{ pas exister car autrement} 
€ il y a toujours relecture} 
{ du directory 2 


e 
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FILE OF INTEGER; 


BEGIN RESETK(F, ’APPLEZ2:TEST:) ; ELOSE(F) ; 


END ; 
PROCEDURE EFFACER; VAR F8 : *INTEGER; 
BEGIN MARK(P@) ; 
END; 


BEGIN REPEAT WRITE£CHRE 12)) ; 
WRITECCHR(28)) ; 
WRITELN(’ VOULEZ-VOUS ? 


{ APPLE II : 
€ APPLE /// 3 
+5 ; 

WRITELN(”Î TESTER LA PRESENCE 
WRITELN( ‘2 TESTER LA PRESENCE 


D‘’UN FICHIER DRIVE 1°); 
D'UN FICHIER DRIVE 2°); 


WRITELN(’3 EFFACER LE DIRECTORY EN MEMOIRE”) ; 


WRITELNé'esc FIN’); 

READKCL) ;:MRITELN; 

CASE CL OF ’1’:TESTERÏ; 
‘2° :TESTER2; 
‘3° :EFFACER; 

END ; 

UNTIL CL=CHRC27) : 
END. 


Suite et fin page 9 


Création de fichiers EXEC 


Yvan Koenig 

Le petit programme en BASIC ci- 1 O$ 
contre a été inspiré par le pro- 

gramme de création de fichier EXEC 

présenté par Bruno Rives (Pom's 3, 

pages 55-56 ; Recueil, pages 142- 

143) 


L'inconvénient du programme, tel 
qu'il était présenté, résidait dans son 
incapacité à accepter des instructions 


88 
98 


s2 


comportant des séparateurs, Par 
exemple POKE A,B. 95 
Le programme ci-contre tourne la 
difficulté en réalisant un « INPUT 198 
ANYTHING », c'est-à-dire qu'il F9 
autorise la rentrée de n'importe 208 
quelle chaîne. On pourra noter l’ins- 
truction 230 dans laquelle l'utilisa- 
tion du «ON... GOTO » fournit 0 
l'équivalent d'un «IF... THEN. 

26a 


ELËSE;: 





= CHRS (4):RS = CHR$ (13:6$ = C 
HR$ (72:F6$ = CHR$ (8): TEXT : H 
OME : PRINT “DONNEZ LE NOM DU FIC 
HIER EXEC À CREER’: INPUT N$: PRI 
NT D$"OPEN"NS: PRINT : PRINT "D@N 
NEZ2 LES COMMANDES À EXECUTER": PR 
INT “CRETURN> POUR TERMINER" 

PRINT :C$ = "" 

GET X$: IF X$ = R$ THEN ON LEN (C$ 
>) > 6 GOTO 198: GOTO 268 

IF X$ = FG$ AND LEN (C$)> > 8 THEN C 
$ = MIDS (C$,1, LEN (C$) - 1): P 
RINT X$“ “X$;: GOTO 98 

IF ASC (X$)>) © 32 THEN PRINT 6$;: G 
OTO 98 

C& = C$ + X$: PRINT X$;: GOTOD 98 

PRINT ?: PRINT D$"HRITE"NS$: PRINT C$ 
: PRINT D$: GOTO 80 

PRINT : PRINT O$°CLOSE"NS$: PRINT : 
PRINT “VOULEZ-VOUS TESTER CE FICH 
IER EXEC (O/ND"; 

GET A$: ON A$ € “N° OR A$ > “0 GOT 
O 238: PRINT : ON A$ = "N" GOTO 2 
68: PRINT : PRINT O$°EXEC"NS 

END 
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Suite à l’article d'Hervé Thiriez dans 
le Pom's 1, dans lequel il présente 
les possibilités du PLE (Program 
Line Editor) et du CRAE (Co- 
Resident Applesoft Editor), d’aucuns 
ont pu regretter que l’on doive char- 
ger manuellement CRAE en 
mémoire après avoir « booté » PLE, 
ce dernier pouvant être chargé auto- 
matiquement à partir du HELLO. 


de ne reviendrai pas sur l'intérêt de 
ces deux programmes ni sur leurs 
propres commandes, ces dernières 
étant très largement expliquées dans 
les articles précités, mais plutôt sur le 
moyen de les charger en mémoire 
sans aucune intervention naturelle, 
si ce n'est la mise sous tension de 
votre Apple préféré ! 

Je me suis donc confectionné une 
disquette qui « boote » directement 
ces deux utilitaires d'aide à la pro- 
grammation. Etant enseignant, j'ai 
pu constater que les stagiaires 
n’acceptent plus de travailler autre- 
ment que sous ce nouvel éditeur 
PLE + CRAE, surtout s'ils ont peiné 
quelque peu sur les corrections par 
ESC: 17.3: 


L'obstacle majeur pour la réalisation 
de cette association est de supprimer 
l'effet de l'instruction PRINT 
CHR$(4)“FP” contenue dans le pro- 
gramme PLE. En effet, il n'est pas 
question de traiter une quelconque 
instruction de chargement de CRAE 
après cela La méthode que j'ai 
emplovée nécessite plusieurs étapes, 
que je détaille ci-dessous. 
Première étape 

Initialiser une disquette avec le pro- 


gramme HELLO PLE + CRAE sui- 
vant : 


1 REM 
189 TEXT : HOME : 


38 VTAB 6: HTAB 14: PRINT 
PRINT CHRS (4) "RUN BOOT PLE+CRAE" : 
NORMAL 


1 REM 
18 D$ = 


28 CALL - 22572: REM 
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—— PROGRAMME HELLO PLE+CRAE -- 
INVERSE 
28 VTAB 5: HTAB 13: PRINT "SUPER EDITEU 


*PLE ET CRAE" 





—— PROGRAMME BOOT PLE+4CRAE -- 

CHRS (4): PRINT D$;"BRUN PLE": 68 
REM LANCEMENT DE PLE 
INITIALISA TION 78 
ET CONSTRUCTiON DES BUFFERS DU DO 





Boot PLE + CRAE 


Deuxième étape 

Charger PLE avec LOAD PLE.FP. 
Ce programme comporte une partie 
en BASIC, suivie d’une partie en 
assembleur. 


La fin est identifiée par le pointeur 
de fin de Program Text PRGEND 
situé en $AF-$BO en page Zéro (on 
trouve normalement $1001). 


On peut trouver l'adresse de début 
en passant en mode moniteur et en 
examinant la mémoire à partir de 
$ 800 jusqu’au début des instruc- 
tions en assembleur : 

NOP 

NOP 

NOP 

NOP 

TXA 

PHA 

JSR $FF5B 


Cela se situe normalement, si l'on 
n'a pas modifié les lignes en BASIC 
du PLE, à l'adresse $8EO. 


Troisième étape 

Calculer la longueur du programme 
en assembleur en effectuant la sous- 
traction (adresse de fin +1) - 
(adresse de début) = $1001 - $8E0 
= $721. 


Quatrième étape 

Déplacer ce bloc d'instruction en 
assembleur à l'adresse $3000, en 
mode {adresse de destination) < 
{adresse de début). (adr. de fin) M. 
soit ici : 3000 < 8E0.1001M. 


Cinquième étape 
Effectuer la sauvegarde sur la dis- 
quette initialisée du bloc ainsi 


Michel Marquis 


déplacé par la commande : BSAVE 
PLE, A$3000, L$721. 


Sixième étape 
Entrer le programme ci-dessous, et 


l'enregistrer sur la disquette sous le 
nom BOOT PLE + CRAE. 


Septième étape 

Copier sur la même disquette le pro- 
gramme binaire livré avec CRAE 
(sur ma disquette, il s'appelait PLE. 
EDIT.PROD), effectuer la sauve- 


garde de ce programme avec 
BSAVE CRAE,A$7400,L$1C00. 


Nous rappelons que les adresses 
AA60/61 et AA72/73 donnent res- 
pectivement la longueur et l'adresse 
de chargement du dernier pro- 
gramme binaire manipulé. 


NDLR : il est aussi possible de trans- 
férer PLE.EDIT.PROD avec le pro- 
gramme FID fourni sur la disquette 
MASTER, à condition de le rebapti- 
ser CRAE, puisque c'est sous ce 
nom qu'il est appelé par le pro- 
gramme décrit dans la sixième 
étape. 


Huitième étape 

Il ne vous reste plus qu’à « booter » 
pour vous trouver après quelques 
instants de patience en SUPER EDI- 
TEUR. N'oubliez pas d'appuyer sur 
& pour bénéficier des possibilités de 
CRAE. 


Remarque : tout ceci s'applique à la 
version 48 K de l'Apple I, mais 
vous n'aurez aucun mal à l’adapter à 
la capacité mémoire de votre 
Apple... 


S MODIFIES PAR PLE 

POKE 16815, 135: POKE 1814,8: POKE 181 
3,76: REM MODIFICATION DU VECTEU 
R & À $68788, ADRESSE DE DEBUT DU 
PLE APRES QU’IL SE SOIT DEPIACE P 
AR LUI-MEME 

PRINT D$;"6LDAD CRAE": REM  CHARGEME 
NT DE CRAE 

POKE 111,248: POKE 112,115: REM MIS 
E À JOUR DES POINTEURS 

POKE 115,248: POKE 116,115: REM FRE 
TOF ET HIMEM À LA VALEUR $73F8 

NEW : REM NETTOYAGE DE LA PARTIE DE 
LA MEMOIRE NON PROTEGEE 


61 
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Un programme de fondu enchaïné 


Denis Sureau 


Le programme suivant permet 
d'effectuer un fondu enchaîné par 
échange très rapide de deux pages 
graphiques haute résolution. Il faut 
tout d'abord charger en mémoire le 
programme par BLOAD HR 
TRANS, et les images souhaitées 
dans les trois pages graphiques 
débutant en +$2000, $4000 et 


Hi suffit ensuite de faire un 
POKE 7,32°M où M est le numéro 
(1, 2 ou 3) de la première page gra- 
phique désirée. Un POKE 9,32°N 
où N est le numéro de la seconde 
page graphique désirée complète le 
travail CALL 768 lance l'échange 
des deux pages. 

NDLR 


: une démonstration de ce 


programme est proposée sur le 
HELLO de la disquette d’accompa- 
gnement de ce numéro de Pom's. 


Le programme en BASIC ci-dessous 
vous permet de créer un effet de 
fondu enchaîné entre trois images 
dont vous définissez les noms dans 
les instructions 100-120. 


HR TRANS DEMO 


S IF PEEK (18) = 
7 PRINT CHRS 


18 TEXT 


78 VTAB 


1 THEN 18 
(4) "BLOAD HR TRANS" 


: HOME 

28 COLCR= 18 

38 HLIN 18,38 ÀT 28 
48 HLIN 18,38 AT 28 
58 VLIN 268,28 AT 18 
68 VLIN 28,28 AT 38 


13: 


HR" 


75 VTAB 268: PRINT ° 


HTAB 15: PRINT “DEMO TRANS 


CHARGEMENT DES LO 


GOS...PATIENCE." 
CHRS (4) + °BLOAD" 


88 DS = 


98 IF PEEK (182 = 


1 THEN 158 


$6000. 
HR TRANS — Big Mac 
1 XXXXXXXXXXXXXXXXXXXX 
2 x 
3 X FONDU ENCHAINE x 
4 x # 
5 X AVEC 3 PAGES HR X 
6 x x 
7 X - D. SUREAU - x 
8 x * 
9 XXXXXXXXXXLXXLEXXXEX 
18 
11 MAXI] = $8aac 
12 X UTILISE $6,57,58,99 
13 
14 ORG +538 
15 
16 LDA #$08 
17 STA $6 
18 STA $8 
19 
28 
21 TRANS LDY #+$808 
22 LDA $7 
23 CLC 
24 ADC #$28 
25 STA MAXI 
26 
27 LOOP LDA (86) ,Y 
28 PHA 
29 LDA (9582 ,Y 
38 STA (56) ,Y 
31 PLA 
32 STA (58) ,Y 
33 
34 INY 
35 BNE LOOP 
36 INC $7 
37 INC #9 
38 LDA 97 
39 SMP MAXI 
48 BNE LOOP 
41 
42 RTS 


95 

188 
118 
1268 
158 


151 
288 
258 
3088 
356 
488 
458 
5088 
558 
688 
658 
788 
1888 


: SOMMET 
: DE 
: PAGE 


: TRANSFERT 


POKE 16,1 
PRINT 0$° image no. 1,48192° 
PRINT D$"image no. 2,416384° 
PRINT D$"Iimage no. 3,424576° 
POKE - 16384,8;: POKE 

OKE - 16388 ,8 
POKE - 16348,8 
POKE 7,32: POKE 
GOSUB 1888 
POKE 7,32: 
GOSUB 18088 
POKE 7,32: 
GOSUB 1888 
POKE 7,64: 
GOSUB 1888 
IF PEEK « 
GOTO 268 
TEXT : END 

FOR I = 1 TO 58: NEXT : 


POKE 
POKE 


POKE 9,96: 


Récapitulation 


ICALL —-151 


X300.32é 


0308- A9 
8388- ÀS 07 18 69 
8318- 
8318- 
8328- 


88 85 684 
48 B1 
C8 D8 
g7 CS 


88 
F3 
ac 


8é 
88 
AS 


x3D0G 
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— 16297,8: P 


9,64: CALL 768 
9,96: CALL 768 
9,64: CALL 768 
CALL 768 


— 16384) > 128 THEN 768 


RETURN 


68 À8 
85 6c 
86 68 
07 Eé 
E9 68 





Les quatre ponts 


Olivier Herz 
Le petit jeu en Applesoft que vos Le but du pu es de réusx à empé- Ceux qui désirent se renseigner sur 
m'a été inspiré par un de ces nom- cher les gens de se noyer. Comme là création de tabes de formes peu- 
breux jeux électroniques, Game and * vous pouvez le voir, tout le jeu est vent lire l'article de Dominique 
Watch en tous genres. Ayant vu ce écrit en Applesoft, la seule particula- Compère (Pom's 4 pages 19-28, ou 
jeu, je me suis demandé s'il ét an dif- ré résidant dans des octets consti- Recueil pages 146 et suivantes). 


ficile d'en programmer un: la tuant une table de formes. 


réponse est « non ». 


Les quatre ponts 


ILIST:LES 4 PONTS 


18 TEXT : HOME : VTAB S: INVERSE : PRIN 
T * OLIVIER HER2 PRESENTE: " 


28 PRINT : PRINT : NORMAL : PRINT ‘ L 
E S QAUATRES PONTS 
38 1 = 1:E = 0:F = 0:61 = 8:62 = 8:63 = 
8:64 = 8:G = 8:A = 8:B = 98:C = 8: 
X = @:Y = @:N = 6G:K = 8:D = 8:S = 
8:H = @ 
48 DIM A(19),B(9) ,CC9): PRINT : PRINT : 


PRINT *“UOUS DEVEZ PLACER VOTRE P 
ONT À L’UN DES QUATRE EMPLACEMENT 
S POSSIBLES" 


56 PRINT : PRINT “ -> GRACE AUX TOUCHE 
S A K 
2 M° 
68 PRINT “ —> OU GRACE À VOTRE JOYSTIC 
K* 


70 PRINT : PRINT “CECI AFIN BE PERMETTR 
E AUX BONSHOMMES DE PASSER SANS 
ENCOMBRE . . .” 

89 PRINT : PRINT : PRINT “VERSION CLAUI 
ER OÙ JOYSTICK ? “; 

85 GET A$: IF A$ € D "J" AND A8 < > ” 
C" THEN 85 

8 PRINT A$:J0 = @: IF À$ = "J“ THEN JO 
= ! 

95 IF PEEK (768) < D 4 THEN 2888 

198 POKE 232,8: POKE 233,3: SCALE= 1: R 


OT= 8 
118 HOME : HGR : HCOLOR= 3: HPLOT 6,8: 
CALL 62454 


128 HCOLOR= 1: FOR J = 48 TO 88: HPLOT 
8,J TO 279,): NEXT : FOR J = 128 
TO 168: HPLOT 8,J TO 279,J: NEXT 
138 HCOLOR= 3: FOR J = 48 TO 65: GOSUB 
135: NEXT : FOR J = 128 TO 145: G 
OSUB 13%: NEXT : HCOLOR= 2: FOR J 
= 66 TO 88: GOSUB 135: NEXT : FO 
R J = 146 TO 168: GOSUB 135: NEXT 
: GOTO 148 
135 HPLOT 86,J TO 113,J: HPLOT 168,J TO 
195,J: RETURN 
148 REM 
168 VTAB 21: HTAB 1: PRINT "SCORE" ,"HI- 


SC" ,"NOYES" ;: UTAB 22: HTAB 1: PR 
INT S.H,K; 
178 63 = INT € RND (1) X 42:63 = 65 x « 


348 


358 


360 


G3 = 0) + 96 X (63 = 1) + 75 X (6 
3 = 2) + 77 X (G3 = 3): GOSUB 928 
= 3 - 1:B = 8:C = 0:D = 80: GOSUB 9 
88: FOR J = @ TO 19 
IF AJ) < > 1 THEN 258 


AJ) = B:C(C) = J:C = C + 1: IF J = 
8 OR J = 18 THEN À = À - 1: GOTO 
258 
À - D = 1: IF J=40RJ=70ORJ 
= 14 OR J = 17 THEN D = J - 1: G 
OT0 2586 

B{B) = J - 1:B=B +1 

NEXT 

N = INT © SQGR (SD / 2 + D: IF À = 


N OR RND (1) > .5 THEN 368 
J = INT (2 *X RND € 12) X 16 + 9: IF 
AJ —- 12 = 3 - I OR AJ) = 3 - I 
OR A(é) = 1 OR A( 16) = 1 THEN 38 
6 
B(8) = JB = B + I:A = À + 1:ACJ) = 
I 
GOSUB 9708: IF C = @ THEN 328 
HCOLOR= 3: FOR J = 8 TO C -— ïi: 
INT CCCJ) / 182:F = CCJ) - ! 
: GOSUB 808: DRAW 2 + E AT X 
EXT 
IF B = @ THEN 348 
HCOLOR= 8: FOR J = 8 TO B - I:E = 
INT (BJ) / 18):F = 8(J) - 18 x E 
: GOSUB B88: HCOLOR= 8: BRAN 2 + 
E AT X,Y: NEXT 
IF D = 6 THEN FOR J = 1 TG S:E = 
PEEK © — 16336): NEXT : GOTO 266 
E = INT (D / 18):F = D - 18 x E: GO 
SUB 888: IF G = D THEN HCOLOR= 8 
: DRAN 2 + E AT X,Y:S = S + 1: WT 
AB 22: HTAB 1: PRINT S;: FOR J = 
1 TG 18:E = PEEK © - 16336): NEX 
T : GOTO 288 
GOSUB 808 :Y = Y + 12 + CE = 12:X = 
X + 2 - 16 X CE — 1): HCOLOR= 8: 
DRAW 1 AT X,Y: FOR J = 1 TO 188:@ 
= PEEK € —- 16336): NEXT :A(D) = 
4:A = À — i 
K = K + 1: VTAB 22: HTAB 1: PRINT ,, 
K;: IF K = 3 THEN 488 
HCOLOR= 3: DRAW 1 AT X,Y: FOR J = 1 
TO 258 - 158 *X JO: GOSUB 988: NE 
XT : GOTO 2686 
VTAB 23: HTAB 1: PRINT "VOULEZ-VOUS 
REJOUER ? ‘; 
POKE - ji6368,8: GET A$: PRINT A$: 
IF À$ = "N° THEN END 
FOR J = 68 TO 19:A(J) = 8: NEXT :1 = 
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1:A = 6:K = 0: IF S > H THEN H = 1858 G = 3:63 = 1468:G4 = 53: GOTO 1878 
S 1868 G = 14:63 = 1468:G4 = 133 
438 S = 6: GOTO 118 1878 1F Gi = G3 AND G2 = G4 THEN RETUR 
888 IF E = 1 THEN 828 N 
818 X = 258 - 28 x F:Y = 46: RETURN 1888 GOTO 998 
828 X = 21 + 28 * F:Y = 125: RETURN 2666 GOTO 2828 
788 1F JO = 1 THEN 18688 2818 HEX$ = HEX$ + * ND8236": FOR I = 1 
905 1F PEEK { - 16384) < 128 THEN RET TO LEN CHEX%): POKE S11 + 1, ASC 
URN ( MIDS CHEXS,1,1)2) + 128: NEXT : 
918 G3 = PEEK ( — 16384) - 128: POKE - POKE 72,80: RETURN 
16368,8 2826 HEX$ = "0389: @4 68 8A 86 26 88 SA 
926 1F G3 = 94 THEN G = 13:63 = 86:64 = 86 8E 08 36 8E 746 76 4D 29 38 3F 
133: GOTO 998 28 6D 2D 38 1iF 1F 67 2D 2D iC 3F 
730 1F G3 = 75 THEN G = 3:63 = 168:64 = 4C 49 49 38 Fé Fé Fé 86 86 24 2D 
53: GOTO 998 2D 2D 25 24 24 E4 SB 38 38 26 ac 
748 1F G3 = 77 THEN G = 16:63 = 168:64 QC QC 25 24 SF 28 2D 38 3F 27 2D 
= 133: G60TO 998 2D 1C°®: G6SUB 2818: CALL - 144 
958 IF G3 = 65 THEN G = 4:63 = 86:64 = 2838 HEX$ = “80348: 3F 67 2D 4D 89 92 92 
53: GDTO 998 12 17 17 3F 38 38 36 36 36 16 2A 
968 RETURN 2D 35 36 36 36 2D 05 84 24 3F 3F 
998 HCOLOR= 3: DR 4 AT G1,6G2: HCOLOR= 3F 27 24 24 24 4 28 28 28 1C iC 
: DRAN 4 AT 63,64:61 = 63:62 = iC 3F 24 2C 38 3F 28 2D 25 3F 3F 
G4: RETURN 67 2D ES 39 FF DB 92 92 12 &A 15 
1888 G3 = PDL (8): 1F 63 > 127 THEN 184 2D 28": GOSUB 2818: CALL — 144 
8 2848 HEX$ = "80388: 28 36 36 36 36 36 3F 
1919 G4 = PDL (12: 1F G4 > 127 THEN 183 3F 36 36 36 3E 3F 88 2C 38 2C 6D 
8 38 3F 27 2D 2D 2D 20 2D 2D 2D 2D 
1828 G = 6:63 = 86:64 = 53: GOTO 1878 2D 2D 2D 2D 2D 35 3F 3F 4E 2D 3€ 
1838 G = 13:63 = 86:64 — 133: GOTO 1878 8E 36 88": GOSUB 2818: CALE -— 14 
1848 G4 = PDL (1): IF G4 > 127 THEN 186 a 
8 2858 GOTO 188 


Courrier des 


Un lecteur nous ayant envoyé la 
petite annonce suivante «Cause 
double emploi, vends logiciels amé- 
ricains originaux pour Apple Il», 
nous avons répondu comme suit : 


Cher lecteur, 


I ne nous est malheureusement pas 
possible, bien que les annonces 
soient gratuites dans Pom's, de 
publier celle que vous nous propo- 
sez. 


En effet, des esprits mal intentionnés 
pourraient croire qu'après avoir 
acquis ces logiciels américains, et les 
avoir intelligement dupliqués, vous 
cherchiez à en amortir le coût. 


Notre politique éditoriale est très 
stricte sur le plan éthique ; nous pré- 
férons, dans le doute, un excès de 
sévérité plutôt que de prêter le flanc 
à d'éventuelles critiques. 


Vous demandez à vos lecteurs et à 
vos abonnés de vous écrire. Person- 
nellement, j'ai longtemps hésité car, 
il est dur d’avouer, je suis bloqué. 
S.O.S., Pom's, que dois-je faire ? 
Et pourtant, je ne vois que quatre 
solutions : 


lecteurs 


1. Me résigner à des programmes 
rudimentaires. 
2. Acheter des logiciels de +confec- 
tion» sans vraiment comprendre ce 
qui s’y passe. 
3. Etudier, étudier encore, mais 
dans quels livres trouverai-je ce qui 
m'intéresse ? 
4. Vous écrire, car je dois être le 
type même du néophyte qui 
démarre et a besoin d'une revue 
bienveillante. 


J'aimerais trouver une solution à 

mes problèmes actuels de program- 

mation : 

e dans un affichage long, comment 
bloquer l'écran à certaines lignes ? 

e comment trier un tableau qui com- 
porte des données alphanuméri- 
ques et des valeurs ? 


M. Albert Bazin - 75020 Paris. 


Pour bloquer une partie de l’écran, il 
suffit d'utiliser les POKE's. Ainsi, 
POKE 34,n bloque les n premières 
lignes de l'écran, comme vous pou- 
vez le constater facilement. Dans ce 
cas, HOME ne nettoie plus la partie 
bloquée. Le haut de l'écran reste 
bloqué tant que vous n'utilisez pas 


64 


TEXT ou un autre POKE 34,x (avec 
x<n). 


Un tableau ne peut contenir à la fois 
des caractères alphanumériques et 
des valeurs, sauf si celles-ci sont défi- 
nies comme des alphas. En effet, le 
tableau porte un nom de type 
NOM), ou de type NOM). Si le 
tableau est alphanumérique, les 
valeurs numériques seront classées 
selon l'ordre alphabétique (celui du 
dictionnaire) : si par exemple, vous 
devez classer «2» et «111», 111 
passe avant 2 car son premier carac- 
tère est «plus petit». 


Voici le patch à apporter à HAIFA 
{Pom's numéro 5) pour obtenir : 
1.234.567,89F 

avec l'instruction : 

& PRINT USR « ———. 
———,—-— F>; 1234567.89. 


Pour un 48K, il faut opérer en deux 
étapes successives : 


BLOAD HAIFA. CODE 1,A$6800. 
En moniteur : 

7281:46 

7285:2C 
BSAVE HAIFA.CODEI1,A$6800, 
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L$1000. 


BLOAD HAIFA.CODEZ2,A$7800. 
En moniteur : 

7964:2E 

7979:46 

7990:46 

7993:2E 
BSAVE. HAIFA.CODE2,A$7800, 
L$1000. 


M. Chauvière - 21300 Chenove. 


Si, après avoir utilisé le programme 
HELLO de Thierry Le Tallec et Jac- 
ques Tran-Van (Pom’s numéro 6), 
on utilise un programme en assem- 
bleur implanté en $300, cela efface 
la page 3 du DOS. On est alors 
obligé de rebooter pour parvenir à 
utiliser le DOS. Ÿ a:t-il une parade ? 


André Babeanu - 78350 Jouy-en- 
Josas. 


Nous transmettons la demande aux 
auteurs. 


Il existe aux Pays-Bas une émission 
sur la chaîne nationale Hilversum 2, 
le dimanche de 19 h 10 à 19h 45 
sur 747 Khz qui se propose d’émet- 
tre en code des programmes d'’infor- 
matique compatibles avec tous les 
micros, y compris l’Apple II. 


Le système BASICODE est conçu 
pour 1 200 bauds. Des expériences 
ont lieu pour le même protocole à 
300 bauds, qui doit donner une 
réception plus fiable. 

Pour tous renseignements, contacter 
BASICODE, Administrative Alge- 
meen Secretariaat, NOS, P.O. Box 
10, 1200 JB Hilversum. Pays-Bas. 


Thierry Lombry - Rue Tienne-aux- 
Pierres 94 - B. 5150 Wepion - Belgi- 
que. 


1. Le patch de la ROM LowerCase 


est déconnecté par le HELLO de 
Porm's 6. Je suppose que c’est le 
module destiné à effacer PLE qui 
est coupable. Pourriez-vous me 
dire comment modifier HELLO 
pour éviter ce désagrément ? 


2. Je voudrais faire quelques remar- 
ques au sujet de SNTX COM- 
PILE {Pom's 6). Contrairement à 
ce qu'écrit Herz, TASC ne provo- 
que pas leffacement du pro- 
gramme étudié, mais seulement 
celui de ses deux premiers octets. 
Il suffit de mémoriser ces octets, 
puis de les rétablir. D'ailleurs, il 
n'y a pas lieu de: sauvegarder 
104, 104, 175 et 176 puisque la 
mise en place de COMPILE ne 
les perturbe pas. 
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Si l'on fait tourner le programme ci- 
joint, on crée un fichier KO : il suffit 
alors de faire EXEC KO pour lancer 
SNTX COMPILE et récupérer 
ensuite le programme étudré.  sem- 
ble donc possible de créer un pro- 
gramme compilé selon les indica- 
tions précédentes. 


Îl serait souhaitable de compiler de 

façon à replacer sous la HIMEM de 

PLE. On pourrait prévoir de placer 

entre cette HIMEM et SNTX COM- 

PILE les différents octets à mémori- 

ser, à savoir :° 

e les deux premiers octets du pro- 
gramme étudié ; 

e l'indication du slot I de limpri- 
mante, défini par le fichier EXEC 
et lu par SNTX ; 

e ce serait préférable à l'implantation 
actuelle en 1912, 1913, qui 
inter fèrent avec l'imprimante. 


3. de joins les listings annotés de 
SNTX et FAIT SYNTAXE per- 
mettant d'imprimer sur papier les 
messages d'erreurs. 


4. Je vous signale que le pro- 
gramme considère comme une 
erreur une ligne de DATA telle 
que : 2000 DATA “Montant : 
..”. Apparemment, ce sont les 
« : » qui le perturbent. 


Yvan Koenig - Mosaïque Gerbino 
Rue du Stade - 06220 Vallauris 


1. Patch de la ROM LC 


Signalons tout d’abord que le menu 
ne détruit pas en fait PLE : PLE se 
contente d'abaisser les buffers du 
DOS et de se joger ainsi entre le 
DOS et ses buffers, de façon à ne 
pas être affecté entre autres par la 
commande FP puisqu'il se trouve de 
cette façon au-dessus de la HIMEM. 
Le menuse contente de remettre ces 
buffers à leur place. Or, le patch 
d'entrée de caractères de la ROM 
LowerCase abaisse de $100 ces buf- 
fers et la HIMEM par la même occa- 
sion. Un autre problème avec ce 
menu était le JSR SETKBD du 
début qui fait un IN#O de façon à 
déconnecter la routine d’entrée de 
caractères, ce qui est nécessaire si 
PLE est présent, mais doit être évité 
dans le cas présent. Finalement, je 
propose le patch suivant, qui évite 
de réassembler le programme de 
menu, en utilisant une « déviation » 
par quelques instructions assembleur 
ajoutées à la fin du code du pro- 
gramme. 


LOAD MENU 
CAËLL -151 


810 :4CFEO0C 

CFE : 20 58 FC AE 55 AA B0 23 
D06 :D00C AE 36 AA EN 9C D0 05 
D0F :A99B 4C 30 08 4C 13 08 
AF :170D 

SAVE MENU LC 


2. SNTX compilé 


Remarquons tout d’abord que le 
programme que j'ai compilé est légè- 
rement différent du programme 
SNTX, car il n'y avait pas lieu de 
retenir les pointeurs 103, 104, 175 
et 176. La compilation n’a pas été 
très facile : j'ai implanté la bibliothè- 
que RUNTIME à partir de $6500. 
J'ai ensuite mis le programme objet 
derrière (en décimal 29869). 
L'ensemble a été calculé de façon à 
ne pas dépasser l'adresse $9000, 
afin d'être compatible avec PLE. 


Quand j'écrivais que TASC efface le 
programme, je pensais bien sûr à un 
effacement au sens des commandes 
FP ou NEW et non à un effacement 
physique. En effet, TASC termine 
son exécution en mettant à zéro les 
mémoires 800-801-802, à $801 le 
pointeur 103-104, et à 5803 le poin- 
teur 175-176, ainsi que les pointeurs 
105-106, 107-108 et 109-110 : il 
s’agit visiblement d'un NEW (ce n’est 
pas un FP car, si l’on change la 
HIMEM, elle n'est pas rétablie). Pour 
éviter cet ennui, il existe des petits 
programmes en assembleur permet- 
tant de récupérer un programme 
effacé par NEW ou FP. On peut 
aussi utiliser le fichier EXEC KO créé 
par le programme FAIT KO de la 
page 66 (provenant de votre lettre, 
après une petite modification). 


3. Version imprimante de SNTX 


Nous n'avons pas la place de mettre 
ici la liste complète de SNTX modifié 
que vous nous envoyez. Voir en 
page 66 la liste des lignes à modifier 
dans SNTX pour pouvoir sortir 
l’analyse sur imprimante. 


4. Un bug dans SNTX 


En ce qui concerne les instructions 
DATA mal comprises par SNTX, 
cela fait partie des 0,1 % à 1 % de 
cas que je pense avoir oubliés. Vous 
trouverez en page 66 la liste des 
modifications à apporter pour que ce 
problème soit résolu. 


Olivier Hetz 


J'utilise HAIFA en version carte lan- 
gage. Pouvez-vous me dire com- 
ment charger un autre programme 
de musique en cours de programme 





en $D000? Faut-il refaire 
A=PEEK(-16247), une fois, deux 
fois ? 


P.Y. Gouriou 110, avenue Lartigue - 
08600 Givet 


Pour charger un autre air de musi- 
que dans là version 64K de HAIFA 
(en $D000 dans le BANK 1 de la 
carte langage), il faut procéder 


comme HAIFAEXEC et faire 
(depuis un programme ou bien au 
clavier) deux fois A = PEEK(-16247) 
avant de faire le BLOAD ; il est en 
outre conseillé de faire A=PEEK 
(-16254) après ce BLOAD pour 
remettre la carte langage dans l’état 
normal en utilisation de l'Applesoft. 
De même, pour charger une autre 
table de caractères (en $DOO0, 
$D600, $D900 ou FDCO0 sur le 


BANK 2 de la carte langage) il faut 
faire deux fois À =PEEK(-16255) 
avant le BLOAD et A=PEEK 
(-16254) après. 


Votre question m'a d’ailleurs fait 
découvrir une erreur dans le début 
de l'annexe 1 de l’article sur HAIFA 
(numéro 5 de Pom's) : j'ai inversé 
les rôles des BANKS 1 et 2 de la 
carte langage. 





Fait KO 


ILIST E 1657,88:YK = 1: RETURN 

IF NOT ERR GOTO 136 

1F ERR AND YK = @ THEN GOSUB 97 

PRINT LIGNE °L1® INSTR °1ST° > ‘;: 
1F ERR = 2 OR ERR = 3 THEN PRIN 


18 D$ = CHRS (13) + CHRS (4):N$ = “KO” 
29 PRINT D$°OPET"NSD$"OELETE"N#D$"OPEN" 
N3DS °WRITE °N$ 
30 PRINT *POKE1912,PEEKK 193) :POKE1913,P FT 6%:;" *; 
EEKC184)° 1F ERR € 8 AND ERR < 
49 PRINT *POKE1914,PEEKK 175) :POKE1915,P NT CXXXXX 9: 
EEK(1762° 5606 ERR = 11: ON VK = @ GOSUB 97: PRINT 
56 PRINT *POKE1916,PEEK(PEEK( 183)+PEEK& LIGNE “Lie INSTR "IST" à "ERS(E 
184) x256) :POKE 1917 ,PEEKC 1:PEEKÇ 18 RR) :PTR = NL: GOTO 18880 
D'RE IEeSSr GOSUB 18:LN = A: GOSUR 18:1N = À 
PRINT °BLOAD SNTX COMPILE" ae ce IN UT S S 
PRINT "CALL 29869° 188846 REM È 
PRINT “8” L 
18818 IST = IST + 1 
PRINT °POKE183,PEEIK 1912) : POKE 184,PE 12688 PRINT : POKE 1657,46: PRINT CHRS 
EK(1913) :POKE175,PEEK( 1914) :POKE1 (4) "PR#@° : PRINT "YOULEZ-VOUS RE 


76,PEE< 1915) v PROGRYME IN ER 
PRINT "POKEPEEK( 1912) +PEEKC 1913) X256 HU fee Hs UE POKE 


PEE( 1916)° 
, , P : 164, P 
PRINT °POKE1+PEEK( 1912) +PEEK(1913)X2 es ONE de PRE 7 

Sé6,PEELK£ 19572 * IŒ 176, PEEX (1917) 


95 PRINT *DEL1,8° 28288 PTR = PEEK <1914) 
188 PRINT D£°CLOSE*NSDS"LOCK°NS « 256 É 


> 8 THEN PRI 


18883 


12826 


PEEK <1915) 


Fait syntaxe IMP 
1LIST 


SNTX BUG 
39 PRINT "POKE 1914,PEEKC 183) :POKE 1915 
,PEEKK 184)" 
48 PRINT *POKE 1916,PEEK(175) :POKE 1917 
,PEEKK 176) ° 3388 ERR = 12 
3319 GOSUS 18: 1F À = @ OR À = 58 THEN 
188 
SNTX IMP 3328 1F À < 2 34 THEN 3318 
ILIST 3338 GOSUB 18: 1F À = 8 THEN 108 
3348 1F À = 34 THEN 3316 


JLIST 
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CHR# (4) °PR#1" CHRS (132: POK 





Courrier des clubs 


L'Association Floppymathique 
anime un club de micro- 
informatique sur matériels Apple et 
Sharp. Ce club s'adresse à des jeu- 
nes (à partir de la classe de 4°) et à 
des adultes. 


Niveau : 
ment. 


initiation ou perfectionne- 


Pour tous renseignements, télépho- 
ner le jeudi de 16h à 18h ou le 
samedi de 14h à 18h au (20) 
73.94.80. Sinon, le soir vers 20h 
au (20) 89.90.76. 


R. Courouble - Association Floppy- 
mathique - 54, rue de Lille - 59100 
Roubaix. 


Le 12 janvier 1983, une vingtaine 
d'architectes, utilisant professionnel- 
lement des Apples I! et If, se sont 
réunis à Paris, à la suite de quoi des 
axes d'intérêt majeur et des actions 
communes ont été définis. 


En outre, la fondation d’un club 
d'utilisateurs a été décidée. Les 
architectes équipés d’Apples sont 
invités à y participer et priés de se 
faire connaître à l'adresse ci- 
dessous, afin d’ètre informés des 
développements ultérieurs. 


Ceux qui ne possèdent pas encore 
de matériel et qui souhaitent avoir 
des renseignements peuvent nous 





3358 GOTO 3338 


demander la liste des participants, 
afin de contacter le plus proche. 


Les producteurs de matériels et de 
logiciels susceptibles d’être utilisés 
dans notre profession sont aussi 
priés de se faire connaître. 


Jean-Michel Guillaume - 110, ave- 


nue du Général-Leclerc - 75014 
Paris. 


Robotwar 


Appel à tous les utilisateurs de 
Robotwar. Un concours va être 
organisé. Prendre contact 
d'urgence avec Jean-Marc Ser- 
vat. Tél. : 651.66.61 (de préfé- 
rence après 19 heures). 


Pom's n° 7 
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108 0 K RAM 


nACIC 
DASNID 


Pseudo disque 64 Koctets 


80 colonnes 
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4 Touches de fonction (15) 
#1 Clavier numérique 
Sortie parallèle 


Entrée/sortie série 
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En raison des fluctuations monêtaires, ces prix sont suaceptibles d'être modifiés sans préavis. Nous consuller pour confirmation. 


JCR, DES MICRO-ORDINATEURS 
PROFESSIONNEL ET GRAND PUBLIC. 


JEUX 
_—— ÉDUCATION 
GESTION 
BUREAUTIQUE 






APPLE II 
Le plus populaire des micro-ordina- 
teurs. 48 K RAM. Basic Applesoft. Una 
gamme incomparable de logiciels et 
d'accessoires, 

Applel + 48K + Disk avec Contrôleur 
+ Moniteur 12”. 





SHARP PC 1500 


Ordinateur de poche de 1.85 Ko de 
mémoire vive extensible avec module 
de 8K CE 155. 


CE 150 


Mini table traçante 4 couleurs directe- 
ment connecteble sur PC 1500, Inter- 
face K T ncorpoté. 
PC 1500 + CE 150. 








BOUTIQUE 


EPSON HX 20 


Un système compact 

clavier écran 5900€) 
LOD avec imprimante. 

Micro K 7. 
Extension 16K. 






EPSON 
Impnmantes de haute qualité d'im- 
pression.interface parallèle type Cen- 


troncs. 
MX 80 FT : 80 cps. 
ou 132 compressés 


5,800€] 


100 cps. 132 caractères 


8200F 


MX 100 : 
ou 233 compressés. 


MX 100 FT IT 





APPLE III 


L'outil srofessionnel par excellence. 
128 Ko ou 256 Ko. Unité de disque 
incorporée. Sortie RS 232. Nombreux 
nterfaces disponibles. Adjonction 
possible d'un disque dur de 5 méga. 
Profilé. Ecran vert haute résolution 
antireflets. Clavier Azerty - Qwerty. 


Nous cousulter. 
ENCORE MODE es 





58, rue Notre-Dame-de-Lorette 
75009 PARIS 
Tél. (1) 282.19.80 - Télex : 290350 F 


COMMODORE VIC 20 

Un vrai microordinateur puissant et 
évolutif idéal pour l'imäation comme 
pour la pratique de la programmation. 


16 couleurs RAM 35 K. 
Version en PAL. 





e ATARI 400 ei 800 

e APPLERE 

e CASIO PB 100 

e SHARP PC 125] 

e SHARP PC 1212 

e INTERF. RS 232/FC 1500 
e VICTOR IT48 K HR 


TO 7 THOMSON 


Un ordinateur 180% français 8 Ko 
extensible à 32 Ko.Fourniavecunlec- 
teur opüque. Sortie couleur Péritel. 
Clavier Azerty accentué. 
Idéal pour 

apprendre en famille. 


3650F 
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